电站录入表，Datacolchanged事件，加入一下代码
Select Case e.DataCol.Name
Case "日发电","日期","名称"
If e.DataRow.IsNull("名称") = False Then
dr =DataTables("居民电站").Find("名称='" & e.DataRow("名称") & "'")
If dr Is Nothing Then
dr = DataTables("居民电站").AddNew()
dr("名称") = e.DataRow("名称")
Else
DataTables("居民电站").DataCols("名称").RaiseDataColChanged(dr)
End If
If e.DataRow.IsNull("日期") = False Then
Dim d As Date = e.DataRow("日期")
d = new Date(d.Year,d.Month,1)
dr = DataTables("月电量统计").Find("名称='" & e.DataRow("名称") & "' and 月份=#" & d & "#")
If dr Is Nothing Then
dr = DataTables("月电量统计").AddNew()
dr("名称") = e.DataRow("名称")
dr("月份") = d
Else
DataTables("月电量统计").DataCols("名称").RaiseDataColChanged(dr)
End If
End If
End If
End Select
加好友 
发短信
Post By：2017/9/30 16:38:00 [显示全部帖子]
