调试
A表代码 (DataColChanged 事件)
Case "会办抄送" '此列为多值列-勾选发放部门
msgbox(dr("会办抄送"))
If dr.IsNull("会办抄送") = False Then '如果已经勾选
msgbox("Count =" & dr.GetChildRows("文管收发台账").Count )
If dr.GetChildRows("文管收发台账").Count = 0 Then '而且无对应文管发放单
Dim cr As DataRow = DataTables("文管收发台账").AddNew() '生成关联文管发放单
cr("来源单号") = dr("本单编号")
cr("文件名称") = dr("使用单据")
cr("抄送对象") = dr("会办抄送")
msgbox("抄送对象=" & cr("抄送对象") )
cr("标的项目") = dr("项目名称")
cr("风险评估") = dr("风险评估")
cr("内容摘要") = dr("申作内容")
cr("编制部门") = dr("项目负责人")
cr("BOM说明") = dr("BOM说明")
End If
End If
文管收发台账 代码(DataColChanged 事件)
Case "抄送对象"
msgbox("文件收发子档Count =" & e.DataRow.GetChildRows("文件收发子档").Count )
If e.DataRow.GetChildRows("文件收发子档").Count = 0 Then
For Each s As String In e.DataRow("抄送对象").split("、")
msgbox("s=" & s )
Dim r As Row = Tables("文管收发台账.文件收发子档").addnew
r("抄送部门") = s
r("来源单号") = ar("本单编号")
Next
End if
加好友 
发短信
Post By：2023/11/23 13:34:00 [显示全部帖子]
