主题：报价单管理求助

需求在[报价]表窗口

 

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

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

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

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

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

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

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

 

上述代码也是需要的

 

 

下面代码中，"锁定"的条件怎么加上？

我的报价管理需求是这样的：[报价明细]中记录了不同时期报价单的信息，同一产品，不同时期的报价是不同的。如果更新了产品价格，只对当前新增的报价单有效，以前的价格不变。

 

For Each dr1 As DataRow In DataTables("产品").DataRows
    For Each dr2 As DataRow  In DataTables("报价明细").Select("产品分类 = '"  & dr1("产品分类") & "' And 型号 = '"  & dr1("型号") & "' And 规格 = '"  & dr1("规格") & "'")
        dr2("单价") = dr1("单价")
    Next
    For Each dr2 As DataRow In dr1.GetChildRows("报价明细")
      If dr1("产品分类") <> dr2("产品分类") OrElse dr1("型号") <> dr2("型号") OrElse dr1("规格") <> dr2("规格") Then
            dr2("单价") = Nothing
        End If
    Next
Next

这段代码基本能满足要求，不知代码是否合理

 

For Each dr1 As DataRow In DataTables("产品").DataRows
    For Each dr2 As  Row In Tables("报价.报价明细")
      If dr1("产品分类") = dr2("产品分类") AndAlso dr1("型号") = dr2("型号") AndAlso dr1("规格") = dr2("规格") AndAlso dr2("锁定") = False Then
        dr2("单价") = dr1("单价")
      End If
    Next
    For Each dr2 As DataRow In dr1.GetChildRows("报价明细")
      If dr1("产品分类") <> dr2("产品分类") OrElse dr1("型号") <> dr2("型号") OrElse dr1("规格") <> dr2("规格") Then
            dr2("单价") = Nothing
        End If
    Next
Next