請教各位前輩： 如何用combobox切換DBGrid的column的位置，combobox內容存的是column的title.caption，假設combobox有5個items為a,b,c,d,e。DBGrid的column排序方式也為a,b,c,d,e，若combobox切換到c的items的話，DBGrid的column排序方式會變成c,a,b,d,e 這要如何做??

You can set the Index property of the column, e.g. DBGrid1.Columns.Items[2].Index := 0;

引言: You can set the Index property of the column, e.g. DBGrid1.Columns.Items[2].Index := 0;

我把他寫在combobox.onchange 可是會有問題，如果所有欄位都點過之後，再重點，會保持不動，是不是所有的column.index都變成0了。

引言:我把他寫在combobox.onchange 可是會有問題，如果所有欄位都點過之後，再重點，會保持不動，是不是所有的column.index都變成0了。

Um... Would you mind posting your OnChange implementation?

procedure TForm1.ComboBox1Change(Sender: TObject); var j:integer; begin if ComboBox1.Text=DBGrid1.Columns.ComboBox1.itemIndex].title.caption then DBGrid1.Columns.Items[ComboBox1.itemIndex].Index:=0; end; 發表人 - ivankuo 於 2003/01/10 17:35:28

------
ivankuo

incomplete?    

procedure TForm1.ComboBox1Change(Sender: TObject);
var
    j:integer;
    f: boolean;
begin
    f := False;
    j := 0;
    with DBGrid1.Columns do begin
        while (not f) and (j < Count) do begin
            f := (Items[j]=ComboBox1.Text);
            inc(j);
        end;
    end;
    if f then
        DBGrid1.Columns.Items[j-1].Index := 0;
end;

Why I need to add spaces before/after '<' ??? for proper display here? 發表人 - william 於 2003/01/10 18:00:54

前輩我用了一個笨方法也可行^_^ procedure TForm1.ComboBox1Change(Sender: TObject); var j:integer; begin if ComboBox1.Text=DBGrid1.Columns[ComboBox1.itemIndex].title.caption then begin DBGrid1.Columns.Items[ComboBox1.itemIndex].Index:=0; ComboBox1.Items.Clear; for j:=0 to DBGrid1.Columns.Count-1 do ComboBox1.Items.Add(DBGrid1.columns[j].Title.Caption); end; end;

有問題    

procedure TForm1.ComboBox1Change(Sender: TObject);
var
    j:integer;
    f: boolean;
begin
    f := False;
    j := 0;
    with DBGrid1.Columns do begin
        while (not f) and (j     
[/quote]     
        

------
ivankuo

引言:while (not f) and (j < Count) do begin f := (Items[j]=ComboBox1.Text); →這行怪怪的

Don't know why but I need to add extra space before and after '<' for a proper display in this board???