烦请老师帮助,看看问题如何解决!
With e.Form.Controls("Comhlh")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "回路号 = '" & .Value & "'"
End If
End With
Dim dr As DataRow
dr = DataTables("报警设备定义").Find(Filter)
If dr IsNot Nothing Then '如果找到的话
MessageBox.Show("该回路已经存在,如果不要可以删除,若要增加回路,请重新输入!", "提示")
Else
Dim r As Row
For i As Integer = 1 To 200
r = Tables("报警设备定义").addnew
r("主机号") = e.form.controls("Comzjh").text
r("回路号") = e.form.controls("Comhlh").text
r("区域") = e.form.controls("Comqy").text.
r("局域_栋号") = e.form.controls("Comdh").text.
r("局域_单元") = e.form.controls("Comhdy").text.
r("局域_裙楼") = e.form.controls("Comhql").checked.
r("局域_商铺") = e.form.controls("CHsp").checked.
r("局域_地下室") = e.form.controls("CHdxs").checked.
r("局域_标准层") = e.form.controls("CHbjc").checked.
r("范围_层数") = e.form.controls("Comhcs").text.
r("范围_防火分区") = e.form.controls("Comhfq").text.
r("一次码") = format(i,"000")
Next
MessageBox.Show("请急时对该回路的设备进行编辑!", "提示")
End If
[此贴子已经被作者于2020/6/8 13:16:50编辑过]