dbgrideh根据数据库显示表头

[xuxugr]

----
begin
while not Eof do
begin
if FieldByName('xsbz').Value:=true then --数据库中表示可以显示该列
begin
dbgrideh1.Columns.Add(FieldByName('zdlm').Value);--该表示为数据库中如果可以显示则add数据字段名,这句话错在哪



这是根据数据库中对应的表自动添加表头和显示表头的代码,哪错了

[xuxugr]

提示[Error] U_xsdd.pas(397): Too many actual parameters

[长沙三毛]

1)缺少ADOQuery等数据集对象，使用了 with 语句？
2)应该是 if FieldByName('xsbz').AsBoolean = true then
3)dbgrideh1.Columns.Add()函数没有参数

[xuxugr]

function TFrm_xsdd.show_init:boolean;
var ADOSetTmp: TADODataSet;
begin
ADOSetTmp := nil;
ADOSetTmp := TADODataSet.Create(ADOSetTmp);
ADOSetTmp.CommandText := 'select * from TBA_SZ where mc=''Frm_xsdd'' order by id';
ADOSetTmp.Connection := Data1.ADOConnection1;
ADOSetTmp.Open;
with ADOSetTmp do
begin
while not Eof do
begin
if FieldByName('xsbz').Value then
begin
DBGridEh1.Columns.Add; 前面是完整的代码,并且可以正常执行,问题出在这句

[xuxugr]

for i:=0 to ADOSetTmp.RecordCount-1 do
begin
DBGridEh1.Columns.Add;
DBGridEh1.Columns[i+1].FieldName:=FieldByName('zdlm').Value;
end;

这里的FieldByName('zdlm').Value;怎样和i关联起来就可以解决了

[eqapple]

var
  iCount:integer; //字段数量
begin
  DBGrid1.Columns.Add;
  iCount:=DBGrid1.Columns.Count;
  DBGrid1.Columns[iCount-1].FieldName:='zdlm';
END;