For j As Integer = e.Form.Controls("板盘端子起" ).Text To e.Form.Controls("板盘端子止" ).Text ("起" = 1 ,"止" = 3) Dim ndr As DataRow = DataTables("机房板盘端子台帐表").AddNew ndr("机房名称") = e.Form.Controls("机房名称").Text ndr("板盘端子") = j ndr("上下端口") = "上" ndr = DataTables("机房板盘端子台帐表").AddNew ndr("机房名称") = e.Form.Controls("机房名称").Text ndr("板盘端子") = j ndr("上下端口") = "下" Next
|