这个查询语句有问题么?

[huanghao820926]

Table1->SetKey();
Table1->FieldByName("Index")->AsString=Edit1->Text;
if(Table1->GotoKey())//查找
//如果找到了，则在状态栏上显示查找的结果
StatusBar1->SimpleText="找到了关于"+Edit1->Text+"的记录";
else
StatusBar1->SimpleText="没有找到关于"+Edit1->Text+"的记录";


无论怎么查询,都是没有找到**记录,是不是字段设置有问题呢?我用的是PARADOX表,可IndexName的属性值为空.那就是说索引字段使用的是我的表的主关键字,设置的应该没有错啊``怎么回事啊``大家帮帮忙

[sunliwen780502]

设置IndexName试试. 上述方法最好设置IndexName,如果采用主索引查找,可以不指定IndexName的值.

[huanghao820926]

怎么设置IndexName呢,那个属性值为空的啊,有别的途径设置么?

[sunliwen780502]

你可以在建表时设置字段表中的第一个字段为索引,称为主索引.
如果你在建表时没有指定主索引,可以用程序来建立索引.
代码如下:
TIndexOptions InxOption;
Table1->IndexDefs->Clear();
InxOption << IxUnique << IxDescending;
Table1->IndexDefs->Add("Num", "学号", InxOption);

也可以采用Query组件来创建索引:
TQuery *newQuery = new TQuery(this);
newQuery->SQL->("Create Index 索引名 On 'c:\\data\\成绩库.dbf'(学号)");
newQuery->ExecSQL();