以文本方式查看主题

-  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)

--  作者:F1216310
--  发布时间: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

表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