- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 报价单管理求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8961)
-- 发布时间：2011/1/4 21:34:00
-- 报价单管理求助
需求在[报价]表窗口
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目17.table |
-- 发布时间：2011/1/5 8:15:00
--
你之前问过同样的问题啊?
-- 发布时间：2011/1/5 8:24:00
--
不好意思，我以前用的是以下代码，现在没有了“产品ID”，采用的是“产品分类、型号、规格”关联，不知道怎么做了。
Dim Filter As String = "报价单号 = \'" & Tables("报价").Current("报价单号") & "\' And ([锁定] = False Or [锁定] Is Null)"
DataTables("报价明细").DataCols("产品ID").RaiseDataColChanged(Filter)
-- 发布时间：2011/1/5 9:04:00
--
Dim r As Row= Tables("报价").Current
Dim Filter As String = "产品分类 = \'" & r("产品分类") & "\' And 型号 = \'" & r("型号") & "\' And 规格 = \'" & r("规格") & "\' And ([锁定] = False Or [锁定] Is Null)"
DataTables("报价明细").DataCols("产品ID").RaiseDataColChanged(Filter)
-- 发布时间：2011/1/5 9:12:00
--
1楼的示例中已经没有了“产品ID”字段
-- 发布时间：2011/1/5 9:19:00
--
我已经看不懂你的问题了。
今天会有更新，帮助对于数据引用和更新会有更详细的讲述，你到时细看一下帮助，定有收获。
-- 发布时间：2011/1/5 9:20:00
--
[产品]表的单价更新后，[报价明细]中录入产品（产品分类、型号、规格）后的单价，不打√的更新，打√的不更新（保留原值）
-- 发布时间：2011/1/5 9:33:00
--
Dim r1 As Row= Tables("产品").Current
For Each r2 As Row In Tables("报价.报价明细")
If r1("产品分类") = r2("产品分类") AndAlso r1("型号") = r2("型号") AndAlso r1("规格") = r2("规格") AndAlso r2("锁定") = False Then
r2("单价") = r1("单价")
End If
Next
-- 发布时间：2011/1/5 9:55:00
--
当在[报价明细]表中增加一行，输入“产品、型号、规格”后，并没有获取[产品]表当前的“单价”。（打√的单价不变）
上述代码也是需要的
-- 发布时间：2011/1/5 10:06:00
--
参考帮助中关于自动输入数据的部分：
http://help.foxtable.com/topics/1458.htm