TTable类的表的有条件查询方法问题 (50分)

  • 主题发起人 主题发起人 hqlww
  • 开始时间 开始时间
H

hqlww

Unregistered / Unconfirmed
GUEST, unregistred user!
在利用Table组件进行查询是,为什么不对呢?具体描述如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.showModal=mrOK then
begin
if (form2.radiogroup1.controls[0] as TRadioButton).checked then
begin
table1.indexfieldnames:='name';
table1.setkey;
table1.FieldByName('name').value:=form2.edit1.text;
if not table1.gotokey then
if messagedlg('无匹配记录,是否转到最近记录?',mtinformation,
[mbOK,mbcancel],0)=mrOK then
table1.gotonearest;
end;
end;
end.
我知道,用到了gotokey、setkey、findkey函数的时候,必须利用建立索引的,我做了,设置了indexfieldnames的值了的啊,但是还会出现不明白的错误信息,我不知道为什么?
是不是我建立的索引出了问题啊?还是别的。


如果你知道,请告诉我为什么?如果可以的话,你可以指引我怎么做一个关于table组件的查询。谢谢了。
 
table1.locate();
 
还是locate比较方便
 
王兄,你能具体与我说说locate吗?因为我不熟悉,比如要知道一个查询的具体函数,随便写一个
可以定义要查询的选择。
RadioGroup里放了RadioButton1与RadioButton2,再放Edit1与Edit2,能具体写一个吗?
那是不需要设置索引的。
如果你知道使用find或者goto查询的话,不妨也指引一下。
告诉你,我最近负责一个Erp的项目,对于我才从大学毕业的,以前多做图象处理(用VC)以后
在程序员的路上希望多交流!谢谢!
 
多人接受答案了。
 
locate比较方便
 
后退
顶部