- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问这段代码有问题吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55256)
-- 发布时间：2014/8/13 11:14:00
-- [求助]请问这段代码有问题吗？
为什么会提示错误信息呢？请问这段代码有问题吗？
此主题相关图片如下：jdfw.gif
If e.DataCol.Name = "流水号" Then
Dim r As Row = Tables("核数表").Current
Dim dr As DataRow = DataTables("成品检验记录表").find("流水号 = \'" & r("流水号") & "\'")
r("生产单号") = dr("生产单号")
r("物料代码") = dr("物料代码")
r("型号") = dr("型号")
r("规格") = dr("规格")
r("一等品_只数") = DataTables("成品检验记录表").Compute("Sum(一等品只数)","流水号 = \'" & r("流水号") & "\'")
r("放行_只数") = DataTables("成品检验记录表").Compute("Sum(特采只数)","流水号 = \'" & r("流水号") & "\'")
r("不良品_只数") = DataTables("成品检验记录表").Compute("Sum(不良品只数)","流水号 = \'" & r("流水号") & "\'")
r("蒸镀不良_只数") = DataTables("成品检验记录表").Compute("Sum(蒸镀不良只数)","流水号 = \'" & r("流水号") & "\'")
r("分切不良_只数") = DataTables("成品检验记录表").Compute("Sum(分切不良只数)","流水号 = \'" & r("流水号") & "\'")
r("基膜不良_只数") = DataTables("成品检验记录表").Compute("Sum(基膜不良只数)","流水号 = \'" & r("流水号") & "\'")
r("设备不良_只数") = DataTables("成品检验记录表").Compute("Sum(设备不良只数)","流水号 = \'" & r("流水号") & "\'")
Dim dr1 As DataRow = DataTables("蒸镀工票信息").find("流水号 = \'" & r("流水号") & "\'")
r("基膜净重") = dr1("基膜净重")
End If
-- 发布时间：2014/8/13 11:16:00
--
If e.DataCol.Name = "流水号" Then
Dim r As Row = Tables("核数表").Current
if r isnot nothing then
Dim dr As DataRow = DataTables("成品检验记录表").find("流水号 = \'" & r("流水号") & "\'")
if dr isnot nothing then
r("生产单号") = dr("生产单号")
r("物料代码") = dr("物料代码")
r("型号") = dr("型号")
r("规格") = dr("规格")
end if
r("一等品_只数") = DataTables("成品检验记录表").Compute("Sum(一等品只数)","流水号 = \'" & r("流水号") & "\'")
r("放行_只数") = DataTables("成品检验记录表").Compute("Sum(特采只数)","流水号 = \'" & r("流水号") & "\'")
r("不良品_只数") = DataTables("成品检验记录表").Compute("Sum(不良品只数)","流水号 = \'" & r("流水号") & "\'")
r("蒸镀不良_只数") = DataTables("成品检验记录表").Compute("Sum(蒸镀不良只数)","流水号 = \'" & r("流水号") & "\'")
r("分切不良_只数") = DataTables("成品检验记录表").Compute("Sum(分切不良只数)","流水号 = \'" & r("流水号") & "\'")
r("基膜不良_只数") = DataTables("成品检验记录表").Compute("Sum(基膜不良只数)","流水号 = \'" & r("流水号") & "\'")
r("设备不良_只数") = DataTables("成品检验记录表").Compute("Sum(设备不良只数)","流水号 = \'" & r("流水号") & "\'")
Dim dr1 As DataRow = DataTables("蒸镀工票信息").find("流水号 = \'" & r("流水号") & "\'")
if dr1 isnot nothing then
r("基膜净重") = dr1("基膜净重")
end if
end if
End If