1、如果BOOK2的数据是手工录入的，应该在datacolchanged事件即时处理，而不是全部录入后再处理。
2、如果BOOK2数据是导入到额，这只能这样了，不过既然数据都已经加载了，试试直接更新统一保存，如
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT 单位,总付款 from book2 "
dt = cmd.ExecuteReader()
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.C
cmd1.CommandText = "Select [_identify] , 单位,月份,应付款,已付款 from book1 "
dt1 = cmd1.ExecuteReader(true)
Dim mxzje As Decimal
Dim je As Decimal
Dim sb As new StringBuilder
For Each dr As DataRow In dt.DataRows
Dim drs As List(Of DataRow)
drs = dt1.Select("单位 ='" & dr("单位") & "'","月份 asc")
je = dr("总付款")
For Each dra As DataRow In dt1.DataRows
If je>= dra("应付款") Then
dra("已付款") = dra("应付款")
je = je - dra("应付款")
Else
dra("已付款") = je
je = 0
End If
Next
Next
dt1.save
3、如果会存储过程，建议直接在存储过程里处理
加好友 
发短信
Post By：2020/11/14 9:42:00 [显示全部帖子]
