For i As Integer = 1 To 3 If e.Form.Controls("机柜编号" & i).Text > "" Then For j As Integer = e.Form.Controls("板盘端子起" & i).Text To e.Form.Controls("板盘端子止" & i).Text Dim ndr As DataRow = DataTables("板盘台帐表").AddNew ndr("机房名称") = e.Form.Controls("机房名称").Text ndr("机柜编号") = e.Form.Controls("机柜编号" & i).Text ndr("板盘名称") = e.Form.Controls("板盘名称" & i).Text ndr("板盘类型") = e.Form.Controls("板盘类型" & i).Text ndr("板盘端子") = j Next End If Next
|