我有一张表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