Απ: προβλημα με dropdownlist...help

KelMan — Tue, 20 Mar 2007 18:42:26 GMT

Φίλε Scientist, σε παρακαλώ αφιέρωσε λίγο από τον χρόνο σου για να διαβάσεις τους κανόνες του dotNETZone.gr

Στο βαθμό που αυτό είναι δυνατό, παρακαλώ πολύ να μη χρησιμοποιείτε greeklish. Εκτός του ότι δεν μου αρέσουν (ωραίος λόγος, ε?), κάνουν δυσκολότερη την δουλειά του πολύ χρήσιμου “search” καθώς και την ανάγνωση του μηνύματος πράγμα που σημαίνει ότι μειώνονται οι πιθανότητες να απαντηθεί το μήνυμα.

Όταν λάβουμε σωστή απάντηση σε ερώτηση μας, τότε τη σημειώνουμε πατώντας το ανάλογο ειδικό κουμπάκι που υπάρχει σε κάθε απάντηση. Και αν τελικά λύσουμε το πρόβλημά μας, θέτουμε την ενότητα σε κατάσταση «Έχει επιλυθεί».

Απ: προβλημα με dropdownlist...help

Scientist — Tue, 20 Mar 2007 18:14:22 GMT

poly swstos...se eyxaristw poly...

Απ: προβλημα με dropdownlist...help

agmarios — Mon, 19 Mar 2007 22:28:03 GMT

όλως ο κώδικας της page_load πρέπει να μπει στο if not page.ispostback

δηλαδή κάπως

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       If Not Page.IsPostBack Then
          ......
       end if
end sub

προβλημα με dropdownlist...help

Scientist — Mon, 19 Mar 2007 19:10:43 GMT

mia erwtisi...mporei kapoios na dei ton kwdika pou esteila se .net na mou pei ti lathos kanw... ta ddl (dropdownlists) mou epistrefoun sti vasi mono tis prwtes egrafes...an epileksw alli den mou tin pernaei..mou pernaei tin prwti pali

thanx in advance..

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here

        If Not Page.IsPostBack Then
            ddlSupp.DataBind()
            ddlGpinv.DataBind()
            ddlAddr.DataBind()
        End If

        Me.lblName.Text = Session.Item("SEC_Name")
        'imerominia'
        Dim dtNow As DateTime = DateTime.Now
        LblDate.Text = dtNow.ToShortDateString
        '
        Dim Command2 As SqlClient.SqlCommand
        Command2 = GetCommand("web_SuppliersSelect")

Command2.Connection.Open()

        ddlSupp.DataValueField = "SuppID"
        ddlSupp.DataTextField = "SuppDescr"
        ddlSupp.DataSource = Command2.ExecuteReader
        ddlSupp.DataBind()

        Command2.Dispose()
        '
        Dim Command3 As SqlClient.SqlCommand
        Command3 = GetCommand("web_AddressesSelect")

Command3.Connection.Open()

        ddlAddr.DataValueField = "AddrID"
        ddlAddr.DataTextField = "AddrDescr"
        ddlAddr.DataSource = Command3.ExecuteReader
        ddlAddr.DataBind()

        Command3.Dispose()
        '
        Dim Command4 As SqlClient.SqlCommand
        Command4 = GetCommand("web_GroupInvoicesSelect")

Command4.Connection.Open()

        ddlGpinv.DataValueField = "GpinvID"
        ddlGpinv.DataTextField = "GpinvDescr"
        ddlGpinv.DataSource = Command4.ExecuteReader
        ddlGpinv.DataBind()

Command4.Dispose()
'

End Sub

Private Sub LkBtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LkBtnBack.Click
Session.Item("Verified") = "True"

        If Session.Item("SEC_Level") = "U" Then
            Response.Redirect("UserPage.aspx")
        End If
    End Sub

Private Sub btnContinue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnContinue.Click

        If Me.txtInvNum.Text = "" Then Exit Sub
        If Me.ddlSupp.SelectedItem.Value = "" Then Exit Sub
        If Me.txtPwovat.Text = "" Then Exit Sub
        If Me.txtItemDescr.Text = "" Then Exit Sub
        If Me.ddlGpinv.SelectedItem.Value = "" Then Exit Sub
        If Me.ddlAddr.SelectedItemValue = "" Then Exit Sub

        Dim Cmd As SqlClient.SqlCommand = Database.GetCommand("dbo.web_UpdateNewInvoice2")
        Cmd.Parameters.Add("@TimSecId", SqlDbType.Int).Value = Session.Item("SEC_ID")
        'Cmd.Parameters.Add("@NoteDate", SqlDbType.DateTime).Value = Now.ToString("yyyy-MM-dd")
        Cmd.Parameters.Add("@TimNum", SqlDbType.Int).Value = Me.txtInvNum.Text
        Cmd.Parameters.Add("@TimSuppId", SqlDbType.Int).Value = Me.ddlSupp.SelectedItem.Value
        Cmd.Parameters.Add("@TimPwovat", SqlDbType.Int).Value = Me.txtPwovat.Text
        Cmd.Parameters.Add("@TimItemDescr", SqlDbType.Int).Value = Me.txtItemDescr.Text
        Cmd.Parameters.Add("@TimGpInvId", SqlDbType.Int).Value = Me.ddlGpinv.SelectedItem.Value
        Cmd.Parameters.Add("@TimAddrId", SqlDbType.Int).Value = Me.ddlAddr.SelectedItem.Value
        'Cmd.Parameters.Add("@NoteText", SqlDbType.VarChar, 2000).Value = Me.txtNotes.Text

        Database.CommandExecuteNonQuery(Cmd, True)
        Me.txtInvNum.Text = ""
        Me.ddlSupp.SelectedItem.Value = ""
        Me.txtPwovat.Text = ""
        Me.txtItemDescr.Text = ""
        Me.ddlGpinv.SelectedItem.Value = ""
        Me.ddlAddr.SelectedItem.Value = ""

Response.Redirect("ReplyInvoicePage.aspx")
End Sub

End Class

ASP.NET WebForms

Απ: προβλημα με dropdownlist...help

Απ: προβλημα με dropdownlist...help

Απ: προβλημα με dropdownlist...help

προβλημα με dropdownlist...help