主题：报价单管理求助

需求在[报价]表窗口

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目17.table

 你之前问过同样的问题啊?

不好意思，我以前用的是以下代码，现在没有了“产品ID”，采用的是“产品分类、型号、规格”关联，不知道怎么做了。

Dim Filter As String = "报价单号 = '" & Tables("报价").Current("报价单号") & "' And  ([锁定] = False Or [锁定] Is Null)"
DataTables("报价明细").DataCols("产品ID").RaiseDataColChanged(Filter)

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)

1楼的示例中已经没有了“产品ID”字段

我已经看不懂你的问题了。

今天会有更新，帮助对于数据引用和更新会有更详细的讲述，你到时细看一下帮助，定有收获。

[产品]表的单价更新后，[报价明细]中录入产品（产品分类、型号、规格）后的单价，不打√的更新，打√的不更新（保留原值）

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

当在[报价明细]表中增加一行，输入“产品、型号、规格”后，并没有获取[产品]表当前的“单价”。（打√的单价不变）

 

上述代码也是需要的

 

 

参考帮助中关于自动输入数据的部分：

 

http://help.foxtable.com/topics/1458.htm