具体逻辑不明白，按照原代码要判断一下当前行是否存在。If Tables("盈亏对账主窗口_Table2").Rows.Count>0 Then
If Tables("盈亏对账主窗口_Table2").Current.IsNull("盈亏号") = False Then
If MessageBox.Show("是否删除","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
Tables("盈亏对账主窗口_Table2").Current.Delete
If Tables("盈亏对账主窗口_Table2").Current IsNot Nothing
Dim SumT1 As Integer=DataTables("盈亏对账数量表").Compute("Sum(对账数量)","[盈亏号] = '" & Tables("盈亏对账主窗口_Table2").Current("盈亏号")& "'")
Dim dr As DataRow = DataTables("盈亏待对账表").Find("盈亏号='" & Tables("盈亏对账主窗口_Table2").Current("盈亏号")& "'")
If dr IsNot Nothing Then
dr("已对账数量")=SumT1
End If
Dim SumT2 As Integer= DataTables("盈亏对账数量表").Compute("Sum(对账盈亏号数量)","[对账盈亏号] = '" & Tables("盈亏对账主窗口_Table2").Current("对账盈亏号")& "'")
Dim drzb As DataRow = DataTables("盈亏待对账表").Find("盈亏号='" & Tables("盈亏对账主窗口_Table2").Current("对账盈亏号")& "'")
If drzb IsNot Nothing Then
drzb("已对账数量")=SumT2*-1
drzb("处理后数量")=drzb("亏损")+ drzb("已对账数量")
End If
End If
End If
Else
Tables("盈亏对账主窗口_Table2").Current.Delete
End If
End If
加好友 
发短信
Post By：2018/12/4 10:04:00 [显示全部帖子]
