专家坐堂-代码求助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=14981)

--  作者：simin
--  发布时间：2011/12/8 19:38:00
--  代码求助

哪位高手看看下面的代码错在哪里，谢谢

If e.DataCol.Name = "数量_B" Then
    Dim pr As DataRow
    pr = DataTables("PBKC").Find("品号 = \'" & e.DataRow("品号") & "\'And[批号]=\'"& e.DataRow("批号") &"\'")
    If pr IsNot Nothing Then
        pr("数量_B")= pr("数量_B") + e.NewValue - e.OldValue
    End If
End If

--  作者：程兴刚
--  发布时间：2011/12/8 21:25:00
--

If e.DataCol.Name = "数量_B" Then
    Dim pr As DataRow
    pr = DataTables("PBKC").Find("[品号] = \'" & e.DataRow("品号") & "\' And [批号]=\'" & e.DataRow("批号") & "\'")
    If pr IsNot Nothing Then
        pr("数量_B")= pr("数量_B") + e.NewValue - e.OldValue
    End If
End If

该有空格的时候，就不要随意省略。