急！！！怎样将一个表的所有字段自动加到一个combobox1.items中去！(50分)

S

SomeBody

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #1

 

R

richgold

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #2

var i,j:integer;
with table1 do
begin
for j:=0 to n do //n: the number of the table field;
begin
for i:=0 to j do
comboxbox1.items:=table1.fielddefs[j].name
....

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #3

用dblookupcombobox
set the
dblistdatasource:=..
dblistdatafield:=..

ok

 

黑

黑夜孤灯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #4

var
i,j:integer;
begin
i:=0;
j:=table1.fielddefs.count;// the number of table fields
while i<=j-1 do
;begin
;combobox1.Items:=table1.fielddefs.name;
;i:=i+1;
;end

 

Z

zbsfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #5

var i:integer;
begin
; combobox1.items.clear;
; for i := 0 to Table1.FieldCount - 1 do
; ; ;combobox1.items.add(Table1.Fields.FieldName);
end;

 

S

SomeBody

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #6

to :richgold
; ; 黑夜孤灯
都还是没有加上！调试通过！
;to cnaoszh: dblookupcombobox一直不可用！它的ENABLE是TRUE，table.active也是true

 

C

chyw123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #7

同意楼上的！

 

S

SomeBody

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #8

我是这样写的！
procedure Tpeiview.ComboBox3Change(Sender: TObject);
var
i:integer;
begin
panel5.Visible:=true;
if combobox3.ItemIndex=7 then
begin
combobox4.items.clear;
; for i := 0 to Table1.FieldCount - 1 do
; ; ;combobox4.items.add(Table1.Fields.FieldName);
;......这些是放在一个PANEL上的！

 

S

Serena

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #9

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

; for i:=0 to table1.FieldCount-1 do
; ; ; ; comboBox1.Items.Add(table1.Fields.FieldName);

end;
我试过了，没问题

 

S

SomeBody

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #10

不好意思！你们的都没有问题！在一个按钮响应事件中就可以！可我这么写有什么错吗？她就是
不理我！
可怜！

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #11

sorry
用dblookupcombobox
还要设keyfield:=Your Field

 

S

SomeBody

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #12

to :cnaoszh
你哪个好象只是显示记录！不是显示所有字段哦！

 

Z

zgdtxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #13

table1.Fields.GetFieldNames(combobox1.items);

 

C

cnaoszh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-13

• #14

我看错
不过应该这样做
最好
Combobox1.items.clear;
(your Dataset).GetFieldNames(Combobox1.items);

 

汉

汉鸭子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #15

我的做法和Serena一样，不过最好在For之前，加上：
ComboBox1.Items.Clear;

 

N

newhorse

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #16

如果加入某一字段中的内容呢

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #17

多人接受答案了。