主题：参数单价的引用

还是请师傅帮忙呀

我反映的问题能处理吗

稍等，我帮你写一下显示单价的代码。

mr725说得不错的，你的系统没有脱离表格的思路，不太符合数据库的设计规范，编写代码比较麻烦

不过只要你自己觉得合用就行。

我写出了单价1到单价3，其他的你自己补上，可以看出万变不离其宗，方法是一样的。
另列名称命名要规范,你有的是品种1,有的却是品名2，让后写代码的时候吃了些苦头，这种随意的命名等于是自己给自己设置陷阱的。

Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow
If e.DataCol.Name = "驾驶员" Then
    dr2 = DataTables("参数").Find("驾驶员 = " & "'" & dr1("驾驶员") & "'" )
    If dr2 IsNot Nothing '如果找到, 则设置各列内容
        dr1("车号")= dr2("车号")
        dr1("车长")= dr2("车长")
    End If
End If
Select Case e.DataCol.Name
    Case  "运输地点" ,"车号", "车长"
        dr2 = DataTables("参数").Find("运输地点 = " & "'" & dr1("运输地点") & "' And 车长 = '" & dr1("车长") & "' And 车号 = '" &  dr1("车号") & "'" )
        If dr2 IsNot Nothing '如果找到, 则设置各列内容
            dr1("运费")= dr2("运费")
        End If
End Select
If e.DataCol.Name = "二次运输" Then
    dr2 = DataTables("参数").Find("驾驶员 = " & "'" & dr1("二次运输") & "'" )
    If dr2 IsNot Nothing '如果找到, 则设置各列内容
        dr1("二次车号")= dr2("车号")
        dr1("二次车长")= dr2("车长")
    End If
End If
Select Case e.DataCol.Name
    Case  "运送地点" ,"二次车号", "二次车长"
        dr2 = DataTables("参数").Find("运输地点 = " & "'" & dr1("运送地点") & "' And 车长 = '" & dr1("二次车长") & "' And 车号 = '" &  dr1("二次车号") & "'" )
        If dr2 IsNot Nothing '如果找到, 则设置各列内容
            dr1("二次运费")= dr2("运费")
        End If
End Select
Select Case e.DataCol.Name
    Case "处理方式","品种1","规格1"
        dr2 = DataTables("参数").Find("处理方式 = '" & dr1("处理方式") & "' And 材料名称 = '" & dr1("品种1") & "' And 产品规格 = '" & dr1("规格1") & "'")
        If dr2 IsNot Nothing Then
            dr1("单价1")  = dr2("单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "处理方式","品名2","规格2"
        dr2 = DataTables("参数").Find("处理方式 = '" & dr1("处理方式") & "' And 材料名称 = '" & dr1("品名2") & "' And 产品规格 = '" & dr1("规格2") & "'")
        If dr2 IsNot Nothing Then
            dr1("单价2")  = dr2("单价")
        End If
End Select
Select Case e.DataCol.Name
    Case "处理方式","品种3","规格3"
        dr2 = DataTables("参数").Find("处理方式 = '" & dr1("处理方式") & "' And 材料名称 = '" & dr1("品种3") & "' And 产品规格 = '" & dr1("规格3") & "'")
        If dr2 IsNot Nothing Then
            dr1("单价3")  = dr2("单价")
        End If
End Select

'后面的单价4到单价8自己补上即可

谢谢

在表代码里有最顶一行代码，是否要写

对不起我看错了，你已连起来了

这不是一张正规的表

师傅你好！

单价还是无法显示，请师傅帮助重新整理一下。

我测试单价可以自动显示：

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

点击浏览该文件:产品销售.rar

单价1=报价，是参数表中的报价

那就修改代码中的单价字样，例如：

 dr1("单价3") = dr2("单价")

改为：

 dr1("单价3") = dr2("报价")