父表代码
If e.DataCol.Name = "检验批编号" Then
Dim dt As DataTable =DataTables("无损_检测明细")
Dim F As String = "检验批编号 = '" & e.DataRow("检验批编号") & "'"
e.DataRow("检测日期_最早检测日期") = dt.SQLCompute("Min(首检_检测日期)",F)
e.DataRow("检测日期_最后检测日期") = dt.SQLCompute("Max(首检_检测日期)",F)
End If
子表代码
If e.DataCol.name = "检验批编号" orelse e.DataCol.Name = "首检_检测日期" Then
Dim F As String = "检验批编号 = '" & e.DataRow("检验批编号") & "'"
Dim pr As DataRow = DataTables("无损_检验批").find(F)
If pr IsNot Nothing Then
DataTables("无损_检验批").DataCols("检验批编号").RaiseDataColChanged(pr)
End If
End If
[此贴子已经被作者于2019/1/21 17:07:32编辑过]
加好友 
发短信
Post By：2019/1/21 17:07:00 [显示全部帖子]
