如何方便的实现这个问题？(100分)

M

minikiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #1

数据库中有以下字段：
1 first
2 second
我想显示 first ,second ，当用户选择一个的时候，我可以取到相应的ID,
以前我用ListBox 显示，这样做比较麻烦，有没有好的组件，或好的方法
可以方便的根据用户的选择找到相应的ID

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #2

先LOCATE（）；
定位后再取ID，这样看对不对！

 

L

lch93005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #3

是在dbgrid 里选择吧,那就用
table属性selectfilds

 

W

weblogic_li

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #4

with adoqry do
begin
close;
sql:='select id,first,second from table wherecondition';
open;
end;
id:=adoqry.fieldbyname('id').asstring;
values1:=dbgrid.datasourse.dataset.fieldvalues('first');
values2:=dbgrid.datasourse.dataset.fieldvalues('second');
...
...

 

M

minikiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-06

• #5

我用ValueListEditor 实现以上功能，为什么删除的时候，会报错：
out of bound list!

procedure TForm1.ProcessPerson;
var
I: Integer;
begin
for I := 1 to ValueListEditor.RowCount-1 do // Iterate
begin
ValueListEditor.DeleteRow(1);
end; // for
ValueListEditor.Refresh ;
while not qrPerson.Eof do
begin
ValueListEditor.InsertRow(qrPerson.fieldbyName('PMCD60').AsString ,qrPerson.fieldbyName('DESC60').AsString,true);
qrPerson.Next;
end; // while
end;

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #6

for I := 1 to ValueListEditor.RowCount-1 do // Iterate
改成：while ValueListEditor.RowCount>1 do

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #7

就用ListBox,用AddObject添加,Objects取得
很麻烦么?

 

A

amli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #8

用ListBox.AddObject可行