- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 子表新增一行数据，怎么写入到父表中，代码怎么写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187954)
-- 发布时间：2023/8/23 9:28:00
-- 子表新增一行数据，怎么写入到父表中，代码怎么写？
-- 发布时间：2023/8/23 9:45:00
--
参考：http://www.foxtable.com/webhelp/topics/1472.htm
表A，datacolchanged
If e.DataCol.Name = "订单号" Then
Dim Filter As String = "[订单号] = \'" & e.NewValue & "\'"
e.DataRow("异常") = DataTables("订单").GetComboListString("异常", Filter).replace("|",";")
End If
Dim Filter As String = "[订单号] = \'" & e.NewValue & "\'"
e.DataRow("异常") = DataTables("订单").GetComboListString("异常", Filter).replace("|",";")
End If
表B，datacolchanged
Select Case e.DataCol.Name
Case "异常"
Dim pr As DataRow
pr = DataTables("表A").Find("订单号 = \'" & e.DataRow("订单号") & "\'")
If pr IsNot Nothing Then
DataTables("表A").DataCols("订单号").RaiseDataColChanged(pr)
End If
End Select
Case "异常"
Dim pr As DataRow
pr = DataTables("表A").Find("订单号 = \'" & e.DataRow("订单号") & "\'")
If pr IsNot Nothing Then
DataTables("表A").DataCols("订单号").RaiseDataColChanged(pr)
End If
End Select