If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim r As Row = e.Table.Current
Dim t1 As Table = Tables("cjxx_Table1")
Dim xm, sfz, zzmm, bddh As String
Dim rwsj, twsj As String
xm = e.Form.Controls("xm").Text
sfz = e.Form.Controls("sfz").Text
zzmm = e.Form.Controls("zzmm").Text
bddh = e.Form.Controls("bddh").Text
rwsj = CStr(e.Form.Controls("rwsj").text)
twsj = cstr(e.Form.Controls("twsj").text)
Dim lst As WinForm.CheckedListBox
Dim lst1 As WinForm.CheckedListBox
Dim lst2 As WinForm.CheckedListBox
lst = e.Form.Controls("rylb")
lst1 = e.Form.Controls("zs")
lst2 = e.Form.Controls("ps")
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
e.Form.Controls("xm").Text = r("姓名")
e.Form.Controls("sfz").Text = r("身份证号")
e.Form.Controls("zzmm").Text = r("政治面貌")
e.Form.Controls("bddh").Text = r("部队代号")
e.Form.Controls("rwsj").Text = r("入伍时间")
e.Form.Controls("twsj").Text = r("退伍时间")
Dim ss() As String = t1.current("军人类别").split(",")
For Index As Integer = 0 To lst.Items.Count - 1
lst.SetItemChecked(Index, False)
If Array.Indexof(ss, lst.Items(Index)) > -1 Then
lst.SetItemChecked(Index, True)
End If
Next
Dim ss1() As String = t1.current("战时战功").split(",")
For Index1 As Integer = 0 To lst1.Items.Count - 1
lst1.SetItemChecked(Index1, False)
If Array.Indexof(ss1, lst1.Items(Index1)) > -1 Then
lst1.SetItemChecked(Index1, True)
End If
Next
Dim ss2() As String = t1.current("平时战功").split(",")
For Index2 As Integer = 0 To lst2.Items.Count - 1
lst2.SetItemChecked(Index2, False)
If Array.Indexof(ss2, lst2.Items(Index2)) > -1 Then
lst2.SetItemChecked(Index2, True)
End If
Next
加好友 
发短信
Post By：2024/6/8 21:46:00 [显示全部帖子]
此主题相关图片如下：123.png
