专家坐堂-未知编译错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  未知编译错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130115)

--  作者：qinlao666
--  发布时间：2019/1/13 23:25:00
--  未知编译错误

If e.DataCol.Name = "请购单号" Then
If DataTables("送检单").Find("[请购单号] = \'" & e.DataRow("请购单号") & " \'and [类型] <> \'加工生产\'" ) Then

Dim a As Integer = DataTables("送检单").Compute("Sum(合格数量)"," 请购单号 =\'" & e.DataRow("请购单号") & "\'")

e.DataRow("到货数量") = a
Else
Dim a1 As Integer = DataTables("送检单").Compute("Sum(不合格数量) + Sum(不合格数量)"," 请购单号 =\'" & e.DataRow("请购单号") & "\'")
e.DataRow("到货数量") = a1
End If
End If

麻烦老师帮忙修改下，，未知编译错误

--  作者：有点甜
--  发布时间：2019/1/14 9:05:00
--
If e.DataCol.Name = "请购单号" Then
    If DataTables("送检单").Find("[请购单号] = \'" & e.DataRow("请购单号") & " \'and [类型] <> \'加工生产\'" ) Is Nothing Then

        Dim a As Integer = DataTables("送检单").Compute("Sum(合格数量)"," 请购单号 =\'" & e.DataRow("请购单号") & "\'")

        e.DataRow("到货数量") = a
    Else
        Dim a1 As Integer = DataTables("送检单").Compute("Sum(不合格数量)"," 请购单号 =\'" & e.DataRow("请购单号") & "\'")
        e.DataRow("到货数量") = a1
    End If
End If