|
Dim dt As DataTable = DataTables("人员任务统计")
dt.DataRows.Clear
Dim cs() As String = {"操纵", "左座", "右座", "观察员1"}
DataTables("任务书").StopRedraw
For Each dr As DataRow In DataTables("任务书").Select("", "飞行日期")
Dim ndr As DataRow
Dim cdr As DataRow = Nothing
For Each c As String In cs
If dr.IsNull(c) = False Then
If c = "操纵" Then
ndr = dt.AddNew
cdr = ndr
Else
If cdr("姓名") = dr(c) Then
ndr = cdr
Else
ndr = dt.AddNew
End If
End If
ndr("飞行日期") = dr("飞行日期")
ndr("姓名") = dr(c)
ndr(c) = True
ndr("总时间") = dr("总时间")
ndr("经历时间") = dr("经历时间")
End If
Next
Next
DataTables("任务书").ResumeRedraw
|
加好友 
发短信
Post By：2015/5/6 9:43:00 [显示全部帖子]
