|
Systemready = False
DataTables("故障详情").deletefor("[灯杆编号] is null")
DataTables("故障详情").StopRedraw
For Each r3 As Row In Tables("添加路段_路灯分布").GetCheckedRows
Dim r2 As Row = Tables("故障统计.故障详情").AddNew
r2("灯杆编号") = r3("灯杆编号")
r2("道路名称") = r3("道路名称")
r2("路段") = r3("路段")
r2("灯杆位置") = r3("灯杆位置")
r2("灯杆序列") = r3("灯杆序列")
r2("灯杆样式") = r3("灯杆样式")
r2("灯源类型") = r3("灯源类型")
r2("供电箱变") = r3("供电箱变")
r2("接触器") = r3("接触器")
Next
DataTables("故障详情").ResumeRedraw
Systemready = True
| 
加好友 
发短信
Post By：2017/8/14 11:18:00 [显示全部帖子]
