>> Protected Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged >> Session("CurrentList") = ListBox1.SelectedValue >> Dim sql As String >> sql = "SELECT list_members.list_id, list_members.personid, " >> sql += " list_members.persontag, maillist.lname, " >> sql += " maillist.fname + maillist.middle + maillist.lname + maillist.suffix + ', ' + maillist.company AS name" >> sql += " FROM list_members " >> sql += " LEFT JOIN maillist ON list_members.personID = maillist.personID " >> sql += " WHERE list_members.list_id =" & Session("CurrentList").ToString >> sql += " ORDER BY lname" >> SqlDataSource3.SelectCommand = sql >> lblOwner.Text = ListBox1.SelectedValue >> End Sub >>>>The user makes a choice in Listbox1 that controls the contents of Listbox3 via the above code. (Note the reset of the SelectCommand.) So I really don't need to return a value from the new record. I just need to make sure its included in the selection set.
>>>> Protected Sub cmdAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAdd.Click >>>> Dim sql As String = "INSERT into list_members (list_ID, personID) VALUES " >>>> sql += "(" & Session("CurrentList").ToString & "," & ListBox2.SelectedValue.ToString & ")" >>>> SqlDataSource3.InsertCommand = sql >>>> SqlDataSource3.Insert() >>>> SqlDataSource3.Select(DataSourceSelectArguments.Empty) >>>> ListBox3.DataBind() >>>> lblOwner.Text = sql >>>> End Sub >>>>>>>>
>>>>>> Protected Sub cmdAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAdd.Click >>>>>> Dim sql As String = "INSERT into list_members (list_ID, personID) VALUES " >>>>>> sql += "(" & Session("CurrentList").ToString & "," & ListBox2.SelectedValue.ToString & ")" >>>>>> SqlDataSource3.InsertCommand = sql >>>>>> SqlDataSource3.Insert() >>>>>> SqlDataSource3.Select() ' This line presents an error and may not belong >>>>>> ListBox3.DataBind() >>>>>> End Sub >>>>>>>>>>>>