以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]增加行代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85939)

--  作者：qwz405 --  发布时间：2016/6/6 11:59:00 --  [求助]增加行代码 求老师帮忙，写下代码，谢谢~~~  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目0606.table <产品表>查找与<父表>型号相同的品名。 求<子表>增加行代码，子表品名即上面获取的。 品名不能重复，即已有此品名，则不增加。

--  作者：大红袍 --  发布时间：2016/6/6 12:11:00 --   For Each dr As DataRow In DataTables("产品").Select("型号 = \'" & Tables("父表").current("型号") & "\'")     Dim fdr As DataRow = DataTables("子表").find("编号 = \'" & Tables("父表").current("编号") & "\' and 品名 = \'" & dr("品名") & "\'")     If fdr Is Nothing Then         Dim ndr As DataRow = DataTables("子表").addnew         ndr("编号") = Tables("父表").current("编号")         ndr("品名") = dr("品名")     End If Next