共13 条记录, 每页显示 10 条, 页签: [1] [2]

标题：报价单管理求助

1楼

实话实说 发表于：2011/1/4 21:34:00

需求在[报价]表窗口

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目17.table

2楼

狐狸爸爸 发表于：2011/1/5 8:15:00

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

3楼

实话实说 发表于：2011/1/5 8:24:00

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

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

4楼

狐狸爸爸 发表于：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)

5楼

实话实说 发表于：2011/1/5 9:12:00

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

[此贴子已经被作者于2011-1-5 9:12:09编辑过]

6楼

狐狸爸爸 发表于：2011/1/5 9:19:00

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

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

7楼

实话实说 发表于：2011/1/5 9:20:00

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

8楼

狐狸爸爸 发表于：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

9楼

实话实说 发表于：2011/1/5 9:55:00

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

上述代码也是需要的

10楼

狐狸爸爸 发表于：2011/1/5 10:06:00

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

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

[此贴子已经被作者于2011-1-5 10:06:51编辑过]

共13 条记录, 每页显示 10 条, 页签: [1] [2]