Dim dr4 As DataRow
Dim dr3 As DataRow
dr4 = DataTables("wy_gt0").Find("[bz1] = '4'and [yy] = '" & e.DataRow("yy") & "'and [yy1] = '" & e.DataRow("yy1") & "'")
dr3 = DataTables("wy_gt0").Find("[bz1] = '3'and [yy] = '" & e.DataRow("yy") & "'and [yy1] = '" & e.DataRow("yy1") & "'")
If dr4 IsNot Nothing Or dr3 IsNot Nothing Then
e.DataRow("zds") = dr4("gtds1")-dr3("gtds1")
e.DataRow("tds") = round2((e.DataRow("zds")* e.DataRow("tmj")/e.DataRow("zmj")),2)
e.DataRow("tje") = round2(e.DataRow("tds")*e.DataRow("tdj"),2)
End If
以上代码中If dr4 IsNot Nothing Or dr3 IsNot Nothing Then写法对吗？老是提示未把对象....实例什么的
加好友 
发短信
Post By：2020/6/2 14:23:00 [只看该作者]
