以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在子表中固定批量增加数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87353)
--  作者：benwong2013
--  发布时间：2016/7/8 19:07:00
--  在子表中固定批量增加数据

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

若上图，表A与表B通过代码A关联，若表A增加数据，表B能固定批量增加表B内容，请问应该如何处理？
--  作者：Hyphen
--  发布时间：2016/7/9 8:41:00
--  
把需要固定批量增加的内容保存到一个固定的表（如专门的字典表）中，假设表名就叫“字典表”

表A，DataColChanged事件

Select Case e.DataCol.Name
    Case "代码"
        If e.NewValue > "" Then
            Dim dr As DataRow = DataTables("表B").Find(CExp("代码=\'{0}\'",e.NewValue))
            If dr Is Nothing Then
                
                For Each r As Row In Tables("字典表").Rows
                    dr = DataTables("表B").AddNew
                    dr("编号") = r("编号")
                    dr("名称") = r("名称")
                Next
                DataTables("表B").Save
            End If
        End If
End Select