回 帖 发 新 帖 刷新版面

主题:怎样让dbgrid不出错

[color=0000FF][size=4]我做了一个DBGrid的用户输入界面,有两个字段,主键是输入好了的,还有一个字段记录是空白,做了一个回车代替了Tab键小事件,现在一回车就像excel一样往下一格,但到最后一格,回车两次后就出错了,原因对数据库进行了追加操作,而主键又没有输入数据,请问如何禁止表格追加记录呢?下面是将回车键变成tab键来切换焦点的代码,供大家参考:
procedure Tfrm_order.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if   key   =   #13   then
    keybd_event(VK_TAB,0,0,0);
end;[/size][/color]

回复列表 (共2个回复)

沙发

无人回贴,唉,本人觉得把Tab转成回车键还不错哦,还有一个问题就是这个用户输入界面的表格是一个临时表,最后还要将这些记录写到另一个表格,我的方法很笨拙,想请高手给个方便的办法,谢谢

板凳

[color=000080]
[size=3][em1]哈哈,各位我终于找到了,原来这么简单啊,就是加一个 
procedure Tfrm_order.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel;
end;
供大家分享![/size][/color]

我来回复

您尚未登录,请登录后再回复。点此登录或注册