为什么把SQLFIND改为FIND后可以完美运行,改回SQLFIND后不能运行呢
代码如下:
'修改或者新增充值条目的时候,自动汇总至余额统计表里
If e.DataCol.Name = "充值金额" Then
DataTables("主卡充值流水").Save
Dim pr As DataRow
pr = DataTables("主卡余额汇总流水").sqlFind("系统主卡编号 = '" & e.DataRow("系统主卡编号") & "' and 汇总日期 = '" & e.DataRow("充值日期") & "'","汇总日期 desc")
If pr IsNot Nothing Then
DataTables("主卡余额汇总流水").DataCols("系统主卡编号").RaiseDatacolchanged(pr)
End If
End If
找到原因了,为什么不是DataTables("主卡充值流水").Save ,而是pr.save
[此贴子已经被作者于2018/2/22 18:20:32编辑过]