ExpressQuantumGrid(100分)

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #1

哪位回答出的共300分
100 + http://www.delphibbs.com/delphibbs/dispq.asp?lid=1033770 = 300
ExpressQuantumGrid中如何动态添加columns?

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #2

这个控件没用过~

 

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #3

不会吧：(

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #4

发给我让我研究研究吧~yj5637899@163.net

 

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #5

好

 

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #6

各位有知道的吗?帮忙啊

 

O

oldppp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #7

这个控件我没用过，我都用DbgridEh的

 

悲

悲酥清风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #8

查帮助、看代码中。。。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #9

代码中午给你行不行,我做出来过,不过忘了,现在在家里没法试.

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #10

把分给我吧.
var
icolumn:integer;
ft:TStringlist;
begin
ft:=tstringlsit.create(self);//然后向里面添加你要在dxdbgrid中显示的字段名.
for icolumn:=0 to ft.items.count-1 do
begin
dxdbgrid1.createcolumn(TdxDBGridColumn) as TdxDBGridColumn do
begin
fieldname:=ft.items.strings[icolumn];
bandindex:=0;//可以拽定为因定列或非固定列,这样dxdbgrid横向移动时该列不动
//需要在gand中设置band为固定的.
caption:=ft.items.strings[icolumn];//也可以随你改动
end;
end;

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #11

ft:=tstringlsit.create(self);//然后向里面添加你要在dxdbgrid中显示的字段名.
这里省略了向ft中增加table的字段名,只需要在ft中增加或减少就行了.

 

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #12

hbezwwl
这个例子你能通过吗？help里的和你的差不多：
The following code demonstrates how to use the CreateColumn method and to
create grid columns at runtime.

procedure TForm1.Button1Click(Sender: TObject);

begin

with dxDBGrid1.CreateColumn(TdxDBGridButtonColumn) as TdxDBGridButtonColumn do

begin

FieldName := 'State';

Index := 2;

OnEditButtonClick := ColEditButtonClick;

end;

end;
我也通不过，不知为什么，能给我解释一下吗？

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #13

我是从我的程序中拷贝出来的，肯定可以用。
我是用的d6.在win98里面的。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #14

with dxdbgrid1.CreateColumn(TdxDBGridColumn) as TdxDBGridColumn do
／／我掉了一个with.
其它的代码就是我程序里面的。

//你说不行，有什么提示没有，有问题写封信我，我来试试。
hbezwwl@163.com,用qq讨论也行。53320295，晚上一般在

 

B

bswilson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #15

我昨天试了一下,好象有另一个方法也行,而且能满足你的需要的话真是太好,太简单的
将所有的列都加入,然后程序决定哪一列显示和不显示,我看了,除了主键那一列,其他column
都有一个visible属性,并且是可以用程序改变的.

 

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #16

哎，我要的不是change dateset时dxdbgrid的显示，如果没有任何dateset，如何给它加上
一列，比方说grid初始化时从一个listbox中读出column caption然后再增加一列写一列

 

B

bswilson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #17

也可以啊,不过要看写代码容易还是上述方法容易,我今天试过,在程序中先指定DATASET,然后
对每一列有个fieldname属性,就是它,把它赋给那一列然后设定visible:=true

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #18

你改不改变都无所谓，你要增加时使用我上面写的语句就行了。
或者要删除某列时相当于删除TStringList中的内容，使用一个
循环把全部列都删除，再用循环重新写就行了。
var
i:integer;
for
for i:=0 to dxdbgrid1.columncount-1 do
dxdbgrid1.columns[0].destroy;//删除当前dxdbgrid所有列。

然后再用循环写入新的列。

 

B

bswilson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #19

应该是的啦

 

L

liaowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-12

• #20

hbezwwl
这儿给你100分，你到
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1033770去一下那200分也
归你