DBComboBox and Edit (100分)

T

Tom13

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-04

• #1

我想在DBComboBox 中选取一列值（如表中的列中的某一个值后，能在Edit 中显示此表中另一列中的对应的值。但没成功，特请教。
另一方面，顺便能了解DBComboBox中的Items的一些编程方法。

 

烂

烂泥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-05

• #2

在DBcombobox中使用SQL语句，好象可以 ，
贴源码!

 

C

cch_b

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-05

• #3

在它的OnChange事件中作处理吧

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-05

• #4

在DBComboBox的OnChange事件中动态查询并给Edit赋值。
>>另一方面，顺便能了解DBComboBox中的Items的一些编程方法。

DBComboBox1.Items.Add();
DBComboBox1.Items...
是这个吗？？？

 

T

Tom13

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-05

• #5

源码如下，但一运行就出错请帮我找找问题。
procedure TUserLoginDlg.DBComboBox1Change(Sender: TObject);
var
SeekValue : string;
begin
SeekValue := UserLoginDlg.DBComboBox1.Text;
if Table1.FindKey([SeekValue]) then
UserLoginDlg.NameEdit.Text := Table1.FieldByName('Company').AsString;

end;

 

向

向红林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-06

• #6

我也想知道。。。

 

W

wumeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-06

• #7

procedure TUserLoginDlg.DBComboBox1Change(Sender: TObject);
var
SeekValue : string;
begin
SeekValue := UserLoginDlg.DBComboBox1.Text;
//select * from yourTable where yourFindKey=SeekValue
if query1.fieldbyname('yourFindKey').value<>'' then
UserLoginDlg.NameEdit.Text := query1.FieldByName('Company').AsString;

end;

用SQL可以轻松完成。

 

T

Tom13

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-06

• #8

多人接受答案了。