标题：代码求助

1楼

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

2楼

程兴刚 发表于：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

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

共2 条记录, 每页显示 10 条, 页签: [1]