如何按树选中的节点批量更新表中字段

付谦

如题，先在树复选框打勾，选中需要的节点后，按上命令按钮，一次性的更新对应的表中的“查询标识“字段，我写的代码提示不支持此属性与方法，不知道如何改写，网上又查不到，希望高手帮助！说明：不是选中一个更新一个，而是选完后批量更新

付谦

急!

付谦

每日看数次,不见有回复,难道此无解,无赖静待中

付谦

经过折腾数日,查看了不少资料,终于落地.现发出供需者参考:
Private Sub AllChildSynchro(ByVal NodeChoose As Object)
    On Error Resume Next
    Dim lNextLoop, PP As Long
    Dim ObjChildren As Object
    PP = Val(Mid(NodeChoose.Key, 2))
   If CBool(NodeChoose.Children > 0) Then
        Set ObjChildren = NodeChoose.Child
     For lNextLoop = 1 To NodeChoose.Children
            ObjChildren.Checked = NodeChoose.Checked
           If ObjChildren.Checked = True Then
               CurrentDb.Execute "UPDATE 表一 SET 查询标识 =True WHERE 族人代码=" & Val(Mid(ObjChildren.Key, 2)) & " OR 族人代码=" & PP
           Else
               CurrentDb.Execute "UPDATE 表一 SET 查询标识 =False WHERE 族人代码=" & Val(Mid(ObjChildren.Key, 2)) & " OR 族人代码=" & PP
           End If
       If ObjChildren.Children > 0 Then Call AllChildSynchro(ObjChildren)
       Set ObjChildren = ObjChildren.Next
         Next lNextLoop
    End If
End Sub