谁能告诉我DbgridEh 某一列存不存在时怎么判断（比如我要Pricep这列，但DBgridEh栏目上我没增加，怎么判断），急。。。。。。。(50)

L

leng0601

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #1

谁能告诉我DbgridEh 某一列存不存在时怎么判断（比如我要Pricep这列，但DBgridEh栏目上我没增加，怎么判断），急。。。。。。。

 

D

duxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #2

var I: integer; while i := 0 to cdsQuery.Recordcount - 1 do begin if DBGrid1.Columns.FieldName = priceP then begin showmessagebox('增加了该列'); end; inc(I); end;

 

D

duxing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #3

我的写错了~~是~for i:=0 to DBGrid1.columns.count-1 do 不好意思~呵呵~`LZ试试znxia的~~

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #4

Function F_ExistField( fieldName:String):Boolean;var I:Integer;begin result:=false; for i:=0 to DBGrid1.columns.count-1 do if Ansicomparetext(fieldName, DBGrid1.columns.fieldName)=0 then //ansicomparetext比较，可以处理不区分大小写 begin result:=true; break; end;end;

 

B

bsense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #5

if assigned(DBGrid1.Columns) then if DBGrid1.Columns.fieldname='Pricep' then found := true;

 

D

dgtg0710

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-11

• #6

DBGridEh.FieldColumn['FieldName'] = nil ,不过，FieldColumn不存列时会出错，可用用try...except ....end或修改源代码