CurrentChanged事件：
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim c0 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox10")
Dim c1 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox11")
Dim c2 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox2")
Dim c3 As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox9")
Dim s As String = "1-1/1-2/1-3/1-4,2-1/2-2/2-3/2-4,今天/明天/后天/以后"
If e.Table.Current.IsNull("第一列") = False
Dim i As Integer = "ABC".IndexOf(e.Table.Current("第一列"))
If i >= 0
c0.Text = s.Split(",")(i).Split("/")(0)
c1.Text = s.Split(",")(i).Split("/")(1)
c2.Text = s.Split(",")(i).Split("/")(2)
c3.Text = s.Split(",")(i).Split("/")(3)
Else
c0.Text = Nothing
c1.Text = Nothing
c2.Text = Nothing
c3.Text = Nothing
End If
Else
c0.Text = Nothing
c1.Text = Nothing
c2.Text = Nothing
c3.Text = Nothing
End If
加好友 
发短信
Post By：2014/5/10 23:16:00 [显示全部帖子]
