以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于关联表的问题求助大神  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68125)
--  作者：cjz7120641
--  发布时间：2015/5/10 17:54:00
--  [求助]关于关联表的问题求助大神

两个表，表A表B通过名称关联在一起，表A是子表，表B是父表，我想实现在表A中添加一行后，在表A的名称列中输入文字，如果输入的文字在表A的名称列中没有（就是新的名称），表B会自动增加一行，反之则不增加，这个代码应该怎么写？  表B新增行中名称列显示表A新输入的名称又该在表B中怎么写代码？  求大神
--  作者：大红袍
--  发布时间：2015/5/10 17:58:00
--  

 参考

 

http://www.foxtable.com/help/topics/2292.htm

 

http://www.foxtable.com/help/topics/2490.htm

 
--  作者：cjz7120641
--  发布时间：2015/5/10 18:39:00
--  
能写个代码给我吗？我照参考的试了下要么效果不对，要么执行不了  谢谢了
--  作者：大红袍
--  发布时间：2015/5/10 19:08:00
--  

表A Datacolchanged事件，加入代码

 

If e.DataCol.Name = "第一列" AndAlso e.NewValue <> Nothing Then
    Dim fdr As DataRow = DataTables("表B").Find("第一列 = \'" & e.DataRow("第一列") & "\'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").AddNew
        fdr("第一列") = e.DataRow("第一列")
    End If
   
End If