以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表与表间的赋值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124859)

--  作者:cjl333333333
--  发布时间:2018/9/15 0:17:00
--  表与表间的赋值
老师,我希望在执行表A时,查找到表B符合条件的字段然后赋值给表A,表A为外部表,但我执行以下代码他总是不能实现,请指教
Dim A As Double = DataTables("A").SQLCompute("SUM(请购数量)","生产单号 = \'"& E.DATAROW("生产单号") & "\' And 物料编号 = \'"& E.DATAROW("物料编号") &"\'")
Dim B As Double = A+  E.DataRow("请购数量") 
 
Dim R As DataRow = DataTables("B").SQLFind("生产单号 = \'"& E.DATAROW("生产单号") & "\' And 物料编号 = \'"& E.DATAROW("物料编号") &"\'")
R("已请购数量") = B

我这事件是写在表A 的 BeforeSaveDataRow  事件里的。

--  作者:有点蓝
--  发布时间:2018/9/15 8:47:00
--  
参考:http://www.foxtable.com/webhelp/scr/1451.htm