谢谢
用语句实现动态改变Dbgrid1的列数,如dbgrid2.Columns:=10;(这句出错)。
比如我需要5列或15列,我怎么定义(用语句实现)。

解决方案 »

  1.   

    edit1.text:=dbgrid1.fields[4].asstring;
    edit2.text:=dbgrid1.fields[14].asstring;
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      i:Integer;
    begin
      for i:= 1 to 10 do
        DBGrid1.Columns.Add;
    end;
      

  3.   

    Dbgrid1.Columns.Clear;
    Dbgrid1.Columns.Add.FieldName:='Field1';
    Dbgrid1.Columns.Add.FieldName:='Field2';
    //....
    Dbgrid1.Columns[0].Visible:=False;
    //...
    Dbgrid1.Columns[1].Visible:=True;
      

  4.   

    procedure TForm1.ButtonAddColumnClick(Sender: TObject);
    var
      i:Integer;
    begin
      for i:= 1 to 你想改变至的个数 do
        DBGrid1.Columns.Add;
    end;