ComboBox中加入数据库 读不出来数据 求大神帮助

[huan310]

我想从一个数据库中把某一个特定的字段导入Combobox中，在Tform中输入 下面程序

Tablemc->Open();Tableldlx->Open();
ComboBoxldlx->Items->Clear(); //清空下拉列表
Tableldlx->Active=true; //打开数据集
Tableldlx->First(); //将记录移到第一条记录
if(Tableldlx->Eof && Tableldlx->Bof)
return; //表的Eof和Bof均为true，表为空
while(Tableldlx->Eof) //记录指针不在结尾时循环
{//将当前记录的ldlx字段的值加入列表框，获取子类型名称
ComboBoxldlx->Items->Add(
Tableldlx->FieldByName("雷达类型")->AsString);
Tableldlx->Next(); //记录指针下移一个记录
ComboBoxldlx->ItemIndex=0; //设置列表索引
ComboBoxldlxClick(Sender); }

上面的雷达类型就是所要的字段

然后选中“雷达类型”中的某一类如：车载雷达 可以过滤出车载雷达有关的具体雷达名称，在其click事件中程序如下
if(ComboBoxldlx->ItemIndex<=-1)
return;
Tableldlx->First();
Tableldlx->MoveBy(ComboBoxldlx->ItemIndex); //定位记录
Tableldlx->Filter="名称="+Tableldlx->FieldByName(
"雷达类型")->AsString; //设置过滤器

运行程序 CombBox中没有相关的字段
程序是书上找的
咋样坚决啊？

[huan310]

大家 帮帮忙 把分都给你 也不知道有分没

[bdmh]

while not Tableldlx.Eof

[广州佬]

呵呵，楼上的可是delphi的语句，我也仅懂少少delphi的语句。

它的语句可能是 while(!Tableldlx->Eof)

[广州佬]

循环的条件弄错了：
while(Tableldlx->Eof) //记录指针不在结尾时循环

漏了“非”运算符了，变成“记录指针在结尾时循环”了。