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组件的查询。谢谢了。
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组件的查询。谢谢了。