If objrecordtemp.RecordCount > 0 Then
Set nodxtemp = Me.TreeViewFloorDoor.Nodes.Add(nodx.Tag, tvwChild, objrecordtemp.Fields(0).Value, objrecordtemp.Fields(1).Value)
nodxtemp.Expanded = True
nodxtemp.Image = 2
nodxtemp.Tag = objrecordtemp.Fields(0).Value
nodxtemp.Checked = False
End If
End If
nodx = nodx.Next
Wend
If Me.TreeViewFloorDoor.Nodes.Count > 0 Then
Me.TreeViewFloorDoor.Nodes(1).Selected = True
Me.TreeViewFloorDoor.Nodes(1).Checked = False
Call SetPopeDomEnabled(False)
End If
Set objrecord = Nothing
Set objrecordtemp = Nothing
Exit Sub
errorhandles:
Set objrecord = Nothing
Set objrecordtemp = Nothing
Err.Raise Err.Number, Err.Source, Me.Caption & Err.Description
End Sub
Private Sub SetPopeDomEnabled(ByVal beanble As Boolean)
Me.ComboTimer.Enabled = ▄︻┻┳═一
Me.ChkDoorAPB.Enabled = ▄︻┻┳═一
Me.ChkDoorOpen.Enabled = ▄︻┻┳═一
Me.ChkHolidayAPB.Enabled = ▄︻┻┳═一
Me.ChkPasswordAPB.Enabled = ▄︻┻┳═一
End Sub
'加载群组列表,选中不同的防区和门的时候变化不同的checkbox
Private Sub LoadListGroup()
On Error GoTo errorhandles:
Dim objrecord As New Recordset