Dim Filter As String
With e.Form.Controls("ComZJ")
If .Value IsNot Nothing Then
Filter = "主机号 = '" & .Value & "'"
End If
End With
With e.Form.Controls("ComHL")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "回路号 = '" & .Value & "'"
End If
End With
With e.Form.Controls("StID")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "一次码 >= '" & .Value & "'"
End If
End With
With e.Form.Controls("EndID")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "一次码 <= '" & .Value & "'"
End If
End With
Tables("报警设备").Filter = Filter
If Tables("报警设备").Rows.Count > 0
For Each dr As Row In Tables("报警设备").Rows
dr("区域") = e.form.controls("Comqy").text
dr("局域_栋号") = e.form.controls("Comdh").text
dr("局域_单元") = e.form.controls("Comdy").text
dr("范围_层数") = e.form.controls("Comcs").text
dr("局域_裙楼") = e.form.controls("Ck1").Checked
dr("局域_地下室") = e.form.controls("Ck2").Checked
dr("局域_商铺") = e.form.controls("Ck3").Checked
dr("范围_防火分区") = e.form.controls("Comfq").text
dr("设备类型") = e.form.controls("sblx").text
dr("控制类型") = e.form.controls("czlx").text
Next
Else
MessageBox.Show("该回路不存在,请先增加回路!", "提示")
End If
加好友 
发短信
Post By：2019/10/10 9:51:00 [只看该作者]
