复选框全选子窗体中当前页面所有数据

levo

Private Sub 全选_Click()
DoCmd.SetWarnings False                               ' 取消系统提示
        Dim SQL As String
     SQL = "UPDATE Q " & _
          "SET 选择 = '-1' " & _
          "WHERE CategoryID like '*'"
    DoCmd.RunSQL SQL          ' 运行更新查询
    DoCmd.SetWarnings True                                ' 恢复系统提示
End Sub

子窗体记录源*是treeview节点产生的Me.frmChild.Form.RecordSource = "SELECT * FROM Q WHERE CategoryID Like '" & Mid(Node.Key, 2) & "*'"

像DoCmd.RunSQL "UPDATE Q SET 选择 = '-1' " 选中的是整个表，我只想选中当前页面的全部记录或者某个分类的所有记录 ，
请问一下有没有代码可以获取当前子窗体的记录源，然后实现WHERE CategoryID = “子窗体的记录源”

roych

当前页？窗体不分页的。。。。如果你通过节点来选择的话，只能由节点的值作为条件来写sql语句，否则就建议使用一般的窗体查询。
另外，关于树控件加载数据，可以参考下这个：
http://www.office-cn.net/thread-98354-1-1.html
动态节点分次加载。

levo

roych 发表于 2017-1-9 23:27
当前页？窗体不分页的。。。。如果你通过节点来选择的话，只能由节点的值作为条件来写sql语句，否则就建议 ...

是树节点已经加载出来对应的数据，在子报表数据视图中有一列 是复选框 窗体里添加了按钮，点击更新的是所有数据的值，只想更新当前节点加载出来的数据 点中树节点 主体数据源会自动改变的，手动把数据源替换到"WHERE CategoryID like '*'"的*字里边可以实现 这一步怎么才能让软件自动赋值呢 求指导 谢谢

roych

levo 发表于 2017-1-20 00:17
是树节点已经加载出来对应的数据，在子报表数据视图中有一列 是复选框 窗体里添加了按钮，点击更新的是所 ...

如果没记错，Node好像有个text属性，可以取得节点的值。