- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 跨表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120762)
-- 发布时间：2018/6/23 10:48:00
--
1、参考：http://www.foxtable.com/webhelp/scr/1472.htm
订单明细datacolchanged
Select Case e.DataCol.Name
Case "单价","订单数量"
e.DataRow("金额")=e.DataRow("单价") * e.DataRow("订单数量")
Case "客户名称","订单编号","金额"
DataTables("订单主表").DataCols("订单编号").RaiseDataColChanged("客户名称=\'" & e.DataRow("客户名称") & "\' and 订单编号=\'" & e.DataRow("订单编号") & "\'")
End Select
2、没看懂你的意思
[此贴子已经被作者于2018/6/23 10:48:50编辑过]
-- 发布时间：2018/6/23 12:05:00
--
1、看2楼代码和帮助
2、增加
dim r as row = tables("订单窗体_订单明细").addnew()
r("订单编号") = tables("订单窗体_订单主表").current("订单编号")
删除
tables("订单窗体_订单明细").current.delete
-- 发布时间：2018/6/23 14:25:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2018/6/23 15:54:00
--
Case "客户名称","物料编号","物料名称","版本号"
Dim filter As String = "[客户名称] = \'" & e.DataRow("客户名称") & "\' and [物料编号]=\'" & e.DataRow("物料编号") & "\'and [物料名称]=\'" & e.DataRow("物料名称") & "\'and [版本号]=\'" & e.DataRow("版本号") & "\'"
e.DataRow("现有库存数量") = DataTables("入库明细表").Compute("Sum(入库数量)",filter )-DataTables("入库明细表").Compute("Sum(库存不良返修数量)",filter )+DataTables("入库明细表").Compute(" Sum(返修再入库数量)",filter )
-- 发布时间：2018/6/23 16:47:00
--
Case "物料编号","版本号"
e.DataRow("料号")=e.DataRow("物料编号") & e.DataRow("版本号")