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

dr1 是···？？？

 

fls = "用盘单位 = '" & dr1("用盘单位") & "' And 盘具规格 = '" & dr1("规格") & "' And 盘具品种 = '" & dr1("品种") & "'  And 承载 = " & dr1("承载") & "  And 元钢规格 = '" & dr1("拉丝圆_规格") & "'  And 元钢根数 = " & dr1("拉丝圆_数量") & "  And 角钢规格 = '" & dr1("排档_规格") & "'  And 角钢根数 = " & dr1("排档_数量") & " And 工资单价  = " & dr1("工资") & " "

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

在哪儿可以看到盘具成本表?

楼主，你的参数表有角钢规格列吗，没有的话，怎么会有这样的代码：

 

 dr1("排档_规格") = dr2("角钢规格")

 

还有下面的代码是什么意思啊，等于是修改A\B\C三列，再重算A\B\C三列，效率不说，意义何在？ 一般是修改某列或某几列，通过代码求其他列的值。

 

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

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

请师傅帮忙呀

那个录入窗口？ 有看懂了的吗 ？

盘具成本表建了一个窗口