以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求写一段代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90899)
--  作者：chu0001
--  发布时间：2016/9/24 17:17:00
--  求写一段代码
a表b表是关联表，a表是父表，b表是子表，关联列是车牌号，在a表增加一行，输入车牌号，ab关联表自动增加一行，如果输入的车牌号已在b表，ab关联表不自动增加一行并保持不变，求大神帮码一下
--  作者：有点蓝
--  发布时间：2016/9/24 17:31:00
--  

稍微改改

Select Case e.DataCol.Name 
    Case "订单编号"
        If e.DataRow.IsNull("订单编号") = False Then \'如果已经输入订单编号
            Dim dr As DataRow = DataTables("订单明细").Find("订单编号 = \'" & e.DataRow("订单编号") & "\'")
            If dr Is Nothing Then \'而且无订单明细
                dr = DataTables("订单明细").AddNew()
                dr("订单编号") = e.DataRow("订单编号")
            End If
        End If
End Select
--  作者：chu0001
--  发布时间：2016/9/24 18:22:00
--  
感谢老师，好用