Select Case e.DataCol.name '此代码写在DataTables("总表")内的表属性-DataColChanged内
Case "抄送单位" '现选定若干个抄送单位(抄送单位的值为链接到DataTables("所有单位")内"单位"列下的复选框)
If e.DataRow("抄送单位") IsNot Nothing Then
Dim cs As new List(Of String)
cs.AddRange(e.DataRow("抄送单位").Split(",")) '将"抄送单位"复选框内的值以集合形式赋给变量cs
Dim dws As List(Of String)
dws = DataTables("所有单位").GetValues("单位") '将DataTables("所有单位")内的所有"单位"以集合形式赋给变量dws
For Each dw As String In dws
If cs.Contains(dw) = True Then '分别对DataTables("所有单位")内的"单位"进行判断,是否被包含在新添加的抄送单位内,如果包含
Dim dr As DataRow
dr = DataTables("所有单位").Find("单位 = '" & dw & "'") '找到DataTables("所有单位")内该单位的行
dr("抄送单位编号") = dr("抄送单位编号") + 1 '然后对该单位的抄送编号+1
End If
Next
End If
End Select
加好友 
发短信
Post By：2019/12/29 21:17:00 [显示全部帖子]
