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

标题：求助狐爸爸引用

1楼

healthy02 发表于：2012/2/2 18:20:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:投标计算软件.rar

1.我想要投标详细表中的单价列引用产品总表中的单价，当投标详细表中的"品名描述","牌号材质","厚度","宽度"都和产品总表中的相关列一样时，引用产品总表中的单价给投标详细表中的单价列。
2.当产品总表中的单价改变时（因为有时要单价市场浮动），已引用的投标材料的单价不会改变。

发现和有个人的很像，但我把他文件拷来后相关列名改了还是失败

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "品名描述","牌号材质","厚度","宽度"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "品名描述 = '" &dr1 "品名描述") & "' And 牌号材质 = '" & dr1("牌号材质") & "' And 厚度 = " & dr1("厚度") & " And 宽度 = '" & dr1("宽度") & "'"
        dr2 = DataTables("单价").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("单价") = dr2("单价")
        End If
End Select

[此贴子已经被作者于2012-2-3 10:55:02编辑过]

2楼

healthy02 发表于：2012/2/4 20:17:00

自己换思路了。。

3楼

chan1997 发表于：2012/2/5 17:48:00

DataColChanged事件中设置如下代码：

Select Case e.DataCol.Name

Case "品名描述","牌号材质","厚度","宽度"

Dim dr As DataRow = e.DataRow

Dim pr As DataRow

If dr.IsNull("品名描述") OrElse dr.IsNull("牌号材质") OrElse dr.IsNull("宽度") OrElse dr.IsNull("厚度") Then

dr("单价") = Nothing

Else

Dim filter As String

filter = "品名描述 = '" & dr("品名描述") & "' And 牌号材质 = '" & dr("牌号材质") & "' And 宽度 = '" & dr("宽度") & "' And 厚度 = '" & dr("厚度") & "'"

pr = DataTables("产品总表").Find(filter)

If pr IsNot Nothing Then

dr("单价") = pr("单价")

End If

End Select

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