另外 我这段代码是不是写的不对 ，怎么不能执行，跟随名称变化呢，， Select Case e.DataCol.Name Case "名称","月期"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("名称") OrElse dr.IsNull("月期") Then
dr("采集月电量_设备1") = Nothing
dr("采集月电量_设备2") = Nothing
dr("采集月电量_设备3") = Nothing
Else
Dim filter As String
filter = "名称 = '" & dr("名称") & "' And 月期 = '" & dr("月期") & "'"
pr = DataTables("电站月读数").Find(filter)
If pr IsNot Nothing Then
dr("采集月电量_设备1") = pr("采集月电量_设备1")
dr("采集月电量_设备2") = pr("采集月电量_设备2")
dr("采集月电量_设备3") = pr("采集月电量_设备3")
End If
End If
End Select
加好友 
发短信
Post By：2017/11/28 20:51:00 [显示全部帖子]
