for i := 0 to dbgrid1.columnscount -1 do begin if dbgrid1.columns[i].filename = 'a' then dbgrid1.columns[i].visiable := false; end; 手頭沒有DELPHI,大致意思是這樣的
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i := 0 to DBGrid1.Columns.Count-1 do begin if dbgrid1.columns[i].FieldName = 'a' then dbgrid1.columns[i].Visible := false; end; end;
for i := 0 to dbgrid1.columnscount -1 do
begin
if dbgrid1.columns[i].filename = 'a' then dbgrid1.columns[i].visiable := false;
end; 手頭沒有DELPHI,大致意思是這樣的
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to DBGrid1.Columns.Count-1 do
begin
if dbgrid1.columns[i].FieldName = 'a' then dbgrid1.columns[i].Visible := false;
end;
end;
DBGridEh1.FieldColumns['a'].Visible