主题：求助狐爸爸引用

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

点击浏览该文件:投标计算软件.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

 自己换思路了。。