主题：带判断的自动录入代码

师傅你好：请你帮我写一组带判断的自动录入代码

例：当用盘单位=光缆（不是一个单位）、品种=铁木盘（不是一个品种）、规格=？（任意数）、承载=？吨（？不是固定数）时，从参数表里调用相对应的内容并显示在相对应的列，参数表理有：用盘单位、品种、规格、承载、角钢型号、角钢根数、元钢规格、元钢根数，托圈规格，工资单价

谢谢

师傅你好：这是我写的自动录入显示代码，不能自动显示，这四种类型：用盘单位,品种,规格, 承载，由下拉框选择，请师傅帮助调整代码

Select Case e.DataCol.Name
    Case "用盘单位","品种","规格", "承载", "排档_规格", "排档_数量", "拉丝圆_规格", "拉丝圆_数量", "工资"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "用盘单位 = '" & dr1("用盘单位") & "' And 盘具规格 = '" & dr1("规格") & "' And 盘具品种 = " & dr1("品种") & "  And 承载 = '" & dr1("承载") & "'  And 元钢规格 = '" & dr1("拉丝圆_规格") & "'  And 元钢根数 = '" & dr1("拉丝圆_数量") & "'  And 角钢规格 = '" & dr1("排档_规格") & "'  And 角钢根数 = '" & dr1("排档_数量") & "' And 工资单价  = '" & dr1("工资") & "'"
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("排档_规格") = dr2("角钢规格")
            dr1("排档_数量") = dr2("角钢数量")
            dr1("拉丝圆_规格") = dr2("元钢规格")
            dr1("拉丝圆_数量") = dr2("元钢根量")
            dr1("工资") = dr2("工资单价")
        End If
End Select

还是请师傅帮我调整呀，

请师傅帮忙哦

上面代码的写法是否正确

只有承载、数量、工资是数据型

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
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
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
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
Select Case e.DataCol.Name
    Case "用盘单位","品种","规格", "承载", "排档_规格", "排档_数量", "拉丝圆_规格", "拉丝圆_数量", "工资"
        Dim dr2 As DataRow
        Dim fls As String
        fls = "用盘单位 = '" & dr1("用盘单位") & "' And 盘具规格 = '" & dr1("规格") & "' And 盘具品种 = '" & dr1("品种") & "'  And 承载 = " & dr1("承载") & "  And 元钢规格 = '" & dr1("拉丝圆_规格") & "'  And 元钢根数 = " & dr1("拉丝圆_数量") & "  And 角钢规格 = '" & dr1("排档_规格") & "'  And 角钢根数 = " & dr1("排档_数量") & " And 工资单价  = " & dr1("工资") & " "
        dr2 = DataTables("参数").Find(fls)
        If dr2 IsNot Nothing Then
            dr1("用盘单位") = dr2("用盘单位")
            dr1("品种") = dr2("盘具品种")
            dr1("承载") = dr2("承载")
            dr1("规格") = dr2("盘具规格")
            dr1("排档_规格") = dr2("角钢规格")
            dr1("排档_数量") = dr2("角钢数量")
            dr1("拉丝圆_规格") = dr2("元钢规格")
            dr1("拉丝圆_数量") = dr2("元钢根量")
            dr1("工资") = dr2("工资单价")
        End If
End Select

为什么显示单价的公式好用，最下面的代码就不好用呀，我不知错在哪里，请师傅帮我处理一下

我发个文件包给师傅

具体操作是盘具成本表里的窗口，请师傅帮忙

 

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

点击浏览该文件:生产管理.rar

我重上传一个包

 

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

点击浏览该文件:生产管理.rar

在录入窗口用盘单位、品种、规格、承载下拉框中输入相应的内容，自动显示参数表相对应的，角钢规格、角钢数量、元钢规格、元钢数量、工资单价

请师傅帮忙呀