共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：数据的默认值如何设置
1楼
timber83 发表于：2024/8/14 16:25:00我有一张表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
2楼
有点蓝 发表于：2024/8/14 16:31:00另外加一段代码
If e.DataCol.Name = "事故风险描述" Then
if e.newvalue = ""
Dim dr As DataRow
dr = DataTables("处置方案要素").Find("[事故ID] = '" & e.DataRow(“事故ID”) & "'")
If dr IsNot Nothing Then
e.DataRow("事故风险描述") = dr("事故风险描述")
End If
end if
end if
共2 条记录, 每页显示 10 条, 页签:
[1]