delphi 数据集checkbox字段一次全选

Question

 大家好！一个问题？adoquery 数据集用dbgrideh显示，其中有个bit字段用checkbox显示，为0则空，为1则打勾，我想问的是在窗体上另外用一个checkbox控件，当我给这个checkbox打勾或是为空时在dbgrideh中的checkbox全部为相应的操作！

Answer 1

var
  bookMark: TBookMark;
begin
  bookMark := DBGridEh.DataSource.DataSet.DisableControls;
  DBGridEh.DataSource.DataSet.Firs;
  while not DBGridEh.DataSource.DataSet.Eof do
  begin
    if DBGridEh.DataSource.DataSet.State=dsBrowse then DBGridEh.DataSource.DataSet.Edit;
    DBGridEh.DataSource.DataSet['bit字段名称'] := cbSelect.Check;
    DBGridEh.DataSource.DataSet.Next;
  end;
  DBGridEh.DataSource.DataSet.GotoBook(bookMark);
  DBGridEh.DataSource.DataSet.FreeBookMark(bookMark);
  DBGridEh.DataSource.DataSet.EnableControls;
end;

Answer 2

修正一下
  bookMark := DBGridEh.DataSource.DataSet.DisableControls;
  —>
  bookMark := DBGridEh.DataSource.DataSet.GetBookMark;
  DBGridEh.DataSource.DataSet.DisableControls;
  ...

Answer 3

[Error] shenheform.pas(215): Undeclared identifier: 'cbSelect'

Answer 4

cbSelect.Check 是什么意思？