procedure TForm1.BitBtn3Click(Sender: TObject); var NewColumn: TColumn; i: integer; begin for I := 0 to ADOTable1.FieldCount do begin NewColumn := DBGrid1.Columns.Add; NewColumn.Field := ADOTable1.Fields[i]; NewColumn.Title.Caption := 'Field1'; ...... end; end;
不知在TQuery中写sql时,直接 select你想要显示的字段行不行?
双击一下DBGrid,先把所有属性加上,然后去掉你不想要的! 或在Columns属性中改!
var i: integer begin for i := 0 to DBGrid1.Column.ControlCount -1 do begin // 做你想做的事情 如: Column[i].Width := 11; end; end;
var
NewColumn: TColumn;
i: integer;
begin
for I := 0 to ADOTable1.FieldCount do
begin
NewColumn := DBGrid1.Columns.Add;
NewColumn.Field := ADOTable1.Fields[i];
NewColumn.Title.Caption := 'Field1';
......
end;
end;
select你想要显示的字段行不行?
或在Columns属性中改!
i: integer
begin
for i := 0 to DBGrid1.Column.ControlCount -1 do
begin
// 做你想做的事情 如: Column[i].Width := 11;
end;
end;