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

--  作者：cjl333333333 --  发布时间：2021/7/10 14:26:00 --  求助 If e.Col.Name = "制程编号" Then     Dim R As DataRow = DataTables("物料明细").SQLFind("[物料编号] = \'"& Tables("制程").Current("制程编号") &"\'")     If R Is Nothing Then         Dim dr As DataRow = DataTables("物料明细").AddNew         dr("物料编号") =Tables("制程").Current("制程编号")         dr("物料名称") =Tables("产品资料").Current("产品名称")& Tables("制程").Current("制程") &"半成品"         dr("物料类型") ="半成品"         dr("材质名称") = Tables("产品资料").Current("产品结构")         dr("物料规格") = Tables("产品资料").Current("产品规格")         dr("固含量") = Tables("产品资料").Current("单重")         dr("单位") = Tables("产品资料").Current("单位")         DataTables("物料明细").Save()     Else         Return         msgbox("半成品已存在")     End If End If 老师，我这个代码在制程表产生，但一直不会增加，什么原因？

--  作者：有点蓝 --  发布时间：2021/7/10 14:33:00 --   不是特别必要，不要在表事件里使用Current当前行这种用法 Dim R As DataRow = DataTables("物料明细").SQLFind("[物料编号] = \'"& e.row("制程编号") &"\'")

--  作者：cjl333333333 --  发布时间：2021/7/10 15:51:00 --   老师，这个如果在产品资料.制程关联表中操作就没 用。这种在一个表的行要增加到另一个表里用什么做会更好？请指教。

--  作者：有点蓝 --  发布时间：2021/7/10 16:15:00 --   就是1楼的用法，把使用当前行的用法改为使用find到对应的表查询的好对应的行使用

--  作者：cjl333333333 --  发布时间：2021/7/10 16:39:00 --   但在关联表里面执行就不行了。

--  作者：有点蓝 --  发布时间：2021/7/10 16:58:00 --   请上传实例说明