如何禁止在DBGRID末位自动添加一行记录
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel; end;
用DBGridEh吧,只要设置属性alopAppendEh为false即可 最简单将DBGrid的option属性中goEditing设置为false,禁止DBGrid编辑 将datasource指向的table或query改readonly成true void __fastcall TForm1::Table1BeforeInsert(TDataSet *DataSet) { Abort(); } procedure TFormLOrder.DBGridLOrderKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_DOWN) or (Key = VK_TAB) then if DBGridLOrder.DataSource.DataSet.RecNo = DBGridLOrder.DataSource.DataSet.RecordCount then Key := 0; end; http://bbs.csdn.net/topics/20441300 移动到最后一条记录时再按一下“下”就会追加一条记录,如果去掉这项功能 procedure TForm1.DataSource1Change(Sender: TObject; Field: TField); begin if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel; end;
好的代码像粥一样,都是用时间熬出来的
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步