datacolchanged 代码
e.DataRow.Save()
Dim sum As Double
Dim R As Row = Tables("XMFP").Current
Dim BH As String = e.DataRow("BH")
Dim rw As String = e.DataRow("任务").replace("'", "''")
sum = DataTables("XMFP").SQLCompute("Sum(当月人天)","任务= '"& rw & "' and BH = '" & BH & "' ")
Dim drs As List(Of DataRow)
drs = DataTables("XMFP").SQLSe/ect("任务= '" & rw & "' and BH = '" & BH & "'")
Dim sy As Double = e.DataRow("任务人天")- sum
For Each dr2 As DataRow In drs
msgbox(dr2("当月人天"))
dr2("剩余人天") = sy
Next
这个代码是哪里的问题提呢。dr2（“剩余人天”）计算出来了，也是正确的。但是没有写入对应的单元格。
去掉sql就可以计算。但是这里我需要用到sqlse/ect
加好友 
发短信
Post By：2018/8/24 23:59:00 [显示全部帖子]
