W wangyuguo Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-18 #1 不用DBCheckBox，因为没有字段是Boolean 要求在每条记录前加一Checkbox 当Checked时 输出记录的内容 可惜我只剩5分了！
小 小吕 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-18 #2 可以在数据集中添加一个计算字段(varchar2(2))dbgrid中options中的 dgmultiselect设为true当DBGrid1.SelectedRows.CurrentRowSelected 则赋计算字段值为'√',否则置空. 然后将所有DBGrid1.SelectedRows.CurrentRowSelected的纪录打印出来.
可以在数据集中添加一个计算字段(varchar2(2))dbgrid中options中的 dgmultiselect设为true当DBGrid1.SelectedRows.CurrentRowSelected 则赋计算字段值为'√',否则置空. 然后将所有DBGrid1.SelectedRows.CurrentRowSelected的纪录打印出来.
W wangyuguo Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-21 #3 小吕，谢谢你的回答。 我是新手，等我试对了，分都给你！
W wangyuguo Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-21 #4 小吕： 能否详细点。在什么事件里定义赋值动作？
小 小吕 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-21 #6 在DBGrid.OnCellClick事件中 if DBGrid.SelectedRows.CurrentRowSelected then FieldByName('value').AsString := '√' else FieldByName('value').AsString := '';
在DBGrid.OnCellClick事件中 if DBGrid.SelectedRows.CurrentRowSelected then FieldByName('value').AsString := '√' else FieldByName('value').AsString := '';
W wangyuguo Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-21 #7 小吕： 真的很感谢！ 再问一下：为什么我在OnDrawColumnCell事件加代码处理后，运行时DBgrid总闪。好像一直在写，怎样让它停下？ 例： if DBgrid1.Fields[1].AsString= 'a' then DBGrid1.Columns[2].Font.Color:=clWhite; else DBGrid1.Columns[2].Font.Color:=clBlue; wrench: Cell组件在何处？
小吕： 真的很感谢！ 再问一下：为什么我在OnDrawColumnCell事件加代码处理后，运行时DBgrid总闪。好像一直在写，怎样让它停下？ 例： if DBgrid1.Fields[1].AsString= 'a' then DBGrid1.Columns[2].Font.Color:=clWhite; else DBGrid1.Columns[2].Font.Color:=clBlue; wrench: Cell组件在何处？
小 小吕 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-21 #9 可能是你在CellClick事件中对SelectedRows.CurrentRowSelected操作的逻辑性不严密.
W wangyuguo Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-22 #10 小吕： 好像不是，没有CellClick事件也这样。
