我给出我的源代码,哪位朋友可以帮我改一下,谢谢! 有两个ListBox控件 <p> <asp:ListBox runat="server" Height="60%" AutoPostBack="True" ID="CheckTex1" OnSelectedIndexChanged="Check_SelChg1" Width="50%"></asp:ListBox> <asp:ListBox runat="server" Height="60%" AutoPostBack="True" ID="CheckTex2" OnSelectedIndexChanged="Check_SelChg2" Width="40%"></asp:ListBox> </p>处理事件的代码如下: '=========================改变列表1选项时================================== Private Sub Check_SelChg1(sender As object,e As eventargs) Dim SelNum As Integer Dim content1 As String Dim content2 As String
'记录选中的内容 content1 = CheckTex1.SelectedItem.Text() content2 = CheckTex2.SelectedItem.Text() TextBox1.text = content1 TextBox2.text = content2 End sub '=========================改变列表2选项时================================== Private Sub Check_SelChg2(sender As object,e As eventargs) Dim SelNum As integer Dim content1 As String Dim content2 As String
————————————————————————————————————————
计算机脑袋的做法,普通用户很难理解。
我读出来的数据内容都是不一样的,但类型是一样的sp1234,你好,没看懂你的意思
有两个ListBox控件
<p>
<asp:ListBox runat="server" Height="60%" AutoPostBack="True" ID="CheckTex1"
OnSelectedIndexChanged="Check_SelChg1" Width="50%"></asp:ListBox>
<asp:ListBox runat="server" Height="60%" AutoPostBack="True" ID="CheckTex2"
OnSelectedIndexChanged="Check_SelChg2" Width="40%"></asp:ListBox>
</p>处理事件的代码如下:
'=========================改变列表1选项时==================================
Private Sub Check_SelChg1(sender As object,e As eventargs)
Dim SelNum As Integer
Dim content1 As String
Dim content2 As String
SelNum = CheckTex1.SelectedIndex
CheckTex2.SelectedIndex = SelNum
'记录选中的内容
content1 = CheckTex1.SelectedItem.Text()
content2 = CheckTex2.SelectedItem.Text()
TextBox1.text = content1
TextBox2.text = content2
End sub '=========================改变列表2选项时==================================
Private Sub Check_SelChg2(sender As object,e As eventargs)
Dim SelNum As integer
Dim content1 As String
Dim content2 As String
SelNum = CheckTex2.SelectedIndex
CheckTex1.SelectedIndex = SelNum
'记录选中的内容
content1 = CheckTex1.SelectedItem.Text()
content2 = CheckTex2.SelectedItem.Text()
TextBox1.text = content1
TextBox2.text = content2
End sub
哪位高手能帮帮我?
我说的就是这个问题,希望对你有用