- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据的默认值如何设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193076)
-- 发布时间：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
-- 发布时间：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