Office中国论坛/Access中国论坛

标题: 复选框全选子窗体中当前页面所有数据 [打印本页]

作者: levo 时间: 2017-1-7 23:42
标题: 复选框全选子窗体中当前页面所有数据
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 时间: 2017-1-9 23:27
当前页？窗体不分页的。。。。如果你通过节点来选择的话，只能由节点的值作为条件来写sql语句，否则就建议使用一般的窗体查询。
另外，关于树控件加载数据，可以参考下这个：
http://www.office-cn.net/thread-98354-1-1.html
动态节点分次加载。

作者: levo 时间: 2017-1-20 00:17

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

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

作者: roych 时间: 2017-1-20 09:43

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)