我有一张表A，一旦选定方案ID, 事故风险描述、应急工作职责就引用表B里面的对应列的数据，但实际过程，我有时候会删除表A事故风险描述, 能不能设置一档这个数据被删除后，自动重新填入之前的引用数据，就如这个地方不填就会自动填充，
这个是否能实现？
这个是我引用的代码
If e.DataCol.Name = "事故ID" Then
Dim nms() As String = {"事故风险描述", "应急工作职责", "应急处置程序", "应急处置措施", "应急报警报告", "注意事项"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("处置方案要素").Find("[事故ID] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
加好友 
发短信
Post By：2024/8/14 16:25:00 [只看该作者]
