dbgrid中如何使一些行不能修改，而一此行能修改？

Question

OnDrawDataCell事件:
  if (...) then
    grid->Options << dgEditing;
  else
    grid->Options >> dgEditing;

Answer 1

这是BCB的你可以自己转成DELPHI

Answer 2

更加你的条件在AfterScroll事件中，控制Dbgrid包含字段的ReadOnly属性
用一个循环即可完成。

Answer 3

你可以在DataSet的AfterScroll事件中控制，比如以下代码只允许用户编辑新行procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
  Index : Integer;
begin
  with Table1.Fields do
  for Index := 0 to count - 1 do
    Fields[Index].ReadOnly := (DataSet.State <> dsInsert);
end;