Foxtable(狐表)用户栏目专家坐堂 → [求助]请问这段代码有问题吗?


  共有1976人关注过本帖树形打印复制链接

主题:[求助]请问这段代码有问题吗?

美女呀,离线,留言给我吧!
rophy0952
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:516 积分:4433 威望:0 精华:0 注册:2014/6/12 14:55:00
[求助]请问这段代码有问题吗?  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35437 积分:178500 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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

 回到顶部