αυτο που εχω κάνει μέχρι στιγμής είναι:
εχω βαλει τα dropdownlists..τα εχω κανει autopostback=true και ο κώδικας ειναι...
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
Me.ddl1o.DataBind()
Me.ddl2o.DataBind()
Me.ddl3o.DataBind()
Dim Command1 As SqlClient.SqlCommand
Command1 = GetCommand("web_get1mio") --γεμίζει το 1ο ddl
Command1.Connection.Open()
ddl1o.DataValueField = "AccountCode1"
ddl1o.DataTextField = "Account1"
ddl1o.DataSource = Command1.ExecuteReader
ddl1o.DataBind()
ddl1o.Items.Insert(0, "-- Παρακαλώ επιλέξτε --")
Command1.Dispose()
End If
End Sub
Private Sub BtnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSubmit.Click
If Me.ddl1o.SelectedItem.Value = "" Then Exit Sub
If Me.ddl2o.SelectedItem.Value = "" Then Exit Sub
If Me.ddl3o.SelectedItem.Value = "" Then Exit Sub
Dim Cmd As SqlClient.SqlCommand = Database.GetCommand("dbo.[web_AccountInsert]")
Cmd.Parameters.Add("@GL_KOD1", SqlDbType.Int).Value =
Me.ddl1o.SelectedValue
Cmd.Parameters.Add("@GL_KOD2", SqlDbType.Int).Value =
Me.ddl2o.SelectedValue
Cmd.Parameters.Add("@GL_KOD3", SqlDbType.Int).Value =
Me.ddl3o.SelectedValue
Cmd.Parameters.Add("@ERRORMSG", SqlDbType.NVarChar, 250)
Cmd.Parameters("@ERRORMSG").Direction = ParameterDirection.Output
Database.CommandExecuteNonQuery(Cmd, True)
Me.ddl1o.SelectedItem.Value = ""
Me.ddl2o.SelectedItem.Value = ""
Me.ddl3o.SelectedItem.Value = ""
ErrorMsg_.Text = Cmd.Parameters("@ERRORMSG").Value
End Sub
Private Sub ddl1o_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddl1o.SelectedIndexChanged
Dim Command2 As SqlClient.SqlCommand
Command2 = GetCommand("web_get2mio")
Command2.Connection.Open()
Command2.Parameters.Add("@AccountCode1", SqlDbType.VarChar, 2).Value = Me.ddl1o.SelectedValue
ddl2o.DataValueField = "AccountCode2"
ddl2o.DataTextField = "Account2"
ddl2o.DataSource = Command2.ExecuteReader
ddl2o.DataBind()
Command2.Dispose()
End Sub
Private Sub ddl2o_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddl2o.SelectedIndexChanged
Dim Command3 As SqlClient.SqlCommand
Command3 = GetCommand("web_get3mio")
Command3.Connection.Open()
Command3.Parameters.Add("@AccountCode2", SqlDbType.VarChar, 4).Value =
Me.ddl2o.SelectedValue
ddl3o.DataValueField = "AccountCode3"
ddl3o.DataTextField = "Account3"
ddl3o.DataSource = Command3.ExecuteReader
ddl3o.DataBind()
Command3.Dispose()
End Sub
End
Class