For i As Integer = 1 To 11 Dim s As String = format(i, "00") If e.Form.Controls(s).Text <> "" Then Dim n1 As DataRow = DataTables("机房设备板件表").AddNew n1("机房名称") = e.Form.Controls("机房名称").Text n1("系统名称") = e.Form.Controls("系统名称").Text n1("网元名称") = e.Form.Controls("网元名称").Text n1("设备编号") = e.Form.Controls("设备编号").Text n1("设备型号") = "华为 OptiX PTN 1900" n1("板件槽位") = s n1("板件型号") = e.Form.Controls(s).Text Exit For End If Next
|