主题：要求自动显示单价

师傅你好：

我在进库材料表单价列引用关联，没有能够显示单价。

现具体的要求是，

1、材料进库表中输入的各项参数满足材料价格表中的各项参数，材料进库表单价自动显示。

2、因材料价格的调整，已进库材料的单价不会改变。

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

点击浏览该文件:参数设置.table

记得将材料单价表的厚度列的列类型改为双精度小数，你现在设置成字符型了。

代码我已经帮你设置好：

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

点击浏览该文件:管理项目12.rar

师傅你好，两个关送货地点的价格应该不一样

那就再加上送货地点的条件啊：
 
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

上表的单价代码从哪里看到

代码放在进库材料表的DataColChanged事件中，你删除原来的代码，将4楼代码复制进去即可。

这是帮你设置好的文件：

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

点击浏览该文件:参数设置.zip

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

修改代码后，请重置一次材料进库表的规格列。

现在你修改材料单价，材料进库的单价并不会改变，只有新增的行才会改变单价。

谢谢师傅