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

1、你的参数表的盘踞规格是字符型，盘踞成本的规格列是数值型，两者不统一

2、既然是A\B\C变化后,求E\D\F的值，为啥你的代码是是A\B\C\D\E\F变化后，求A\B\C\D\E\F的值，这能出结果才怪。

3、还有你的参数表有角钢数量和元钢根量着两列吗？

 

下面的代码基本能用，不过你得讲盘踞成本表的规格列改为字符型：

 

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

 

强烈建议你抽点时间先看看帮助，这样你的开发效率和质量会更好。

 

请把你所有表中对应字段的类型统一起来，可能你自己就能解决了···  呵呵， 晕菜啦～～～～～

试试这个看看：

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

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

谢谢各位师傅的指点