Select Case e.DataCol.Name
Case "fw","fwsupplied" ''fwconsup
Dim dr As DataRow
dr=DataTables("操作表").Find("[sureyidtimes] = '" & e.DataRow("sureyidtimes") & "'","[次数] = '" & e.DataRow("次数")-1 &
"'")
If dr IsNot Nothing Then
If dr.Isnull("fw") And e.DataRow.Isnull("fwsupplied") And e.DataRow.Isnull("fw") Then
e.DataRow("fwconsup")=Nothing
Else
e.DataRow("fwconsup")=dr("fw")+e.DataRow("fwsupplied") -e.DataRow("fw")
End If
End If
End Select
次数-1哪个地方报错了，麻烦老师帮忙看看，改正一下。
加好友 
发短信
Post By：2021/3/25 2:10:00 [只看该作者]
