|
For Each dr As DataRow In DataTables("机房设备板件表").Select("机房名称 is not null")
Dim drs As List(Of DataRow) = DataTables("板件端口列表").Select("设备名称 = '" & dr("设备名称") & "' and 设备型号 = '" & dr("设备型号") & "' and 板件型号 = '" & dr("板件型号") & "'")
For Each r As DataRow In drs
If r.RowState = DataRowState.Added OrElse r.RowState = DataRowState.Modified Then
Dim ndr As DataRow = DataTables("机房板件端口表").AddNew
ndr("机房名称") = dr("机房名称")
ndr("设备名称") = r("设备名称")
ndr("设备型号") = r("设备型号")
ndr("设备编号") = dr("设备编号")
ndr("端口类型") = r("端口类型")
ndr("端口编号") = r("端口编号")
ndr("板件名称") = r("板件名称")
ndr("板件型号") = r("板件型号")
ndr("板件槽位") = dr("板件槽位")
ndr("板件型号") = r("板件型号")
End If
Next
Next
| 
加好友 
发短信
Post By：2014/10/9 15:05:00 [显示全部帖子]
