谢谢你的提醒 成功了,虽然没用你说的这个方法,我只是去获得焦点就可以了,不去添加 我自己写的代码是这样的 for i := 0 to lstPost.Count - 1 do begin if lstPost.Items[i] = DataModule6.ADOQuery1.FieldByName('zhicheng').AsString then begin sum:=i; end; lstPost.ItemIndex :=sum; end; 效果是数据库我暂时就一条数据,是自己写着玩的 谢谢你了 ,问题解决,心情愉悦啊
datamodule2.ADOQuery2.GetFieldNames(combobox6.Items);。我也刚学,互相学习
lstPost.Items.Text := DataModule6.ADOQuery1.FieldByName('zhicheng').AsString;
lstPost就是listBox,不知道该用哪个属性 要得到下面的效果
只是让从数据库读出来的数据和这里对比,相同的 这里选中就可以了,这样说,差不多明白了吧
self.ListBox1.Items.Add('教授');//字符或字段都可以,这个是字符,下面是字段
self.ListBox1.Items.Add(DataModule6.ADOQuery1.FieldByName('zhicheng').AsString)
//........//继续加入或用循环加入整个表都可以
self.ListBox1.ItemIndex :=0;//设置焦点在第1个选项,=1则是第二个选项=2则是第三个选项如果是直接控制字段可用DB类里面的控件。
我自己写的代码是这样的
for i := 0 to lstPost.Count - 1 do
begin
if lstPost.Items[i] = DataModule6.ADOQuery1.FieldByName('zhicheng').AsString then
begin
sum:=i;
end;
lstPost.ItemIndex :=sum;
end;
效果是数据库我暂时就一条数据,是自己写着玩的
谢谢你了 ,问题解决,心情愉悦啊