procedure TForm1.FormCreate(Sender: TObject);
  begin 
  with DBNavigator1 do
    for ix := 0 to ControlCount - 1 do
      if Controls[ix] is TNavButton  then
        with Controls[ix] as TNavButton   do
          case index of
            nbFirst: Hint := 'First';
            nbPrior: Hint := 'Prior';
            nbNext: Hint := 'Next';
            nbLast: Hint := '4567';
          end;
  end; 
 

引言: 各位先進好! Q1: 我的程式中有1個DBgrid和1個DBNavigator並連接相同的Datasource ,希望按DBNavigator的Insert按鈕,寫入一條記錄按Post(DBNavigator)按鈕後,DBgrid能夠根據某一Column排序,請問該如何解決?

procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet);
begin
  ADOQuery1.Sort := 'LastName ASC, DateDue DESC';
end;

  procedure TForm1.Button1Click(Sender:TObject); 
  begin 
   Table1.Open; // 打開Table1關聯的表Student 
  end; 

 ...
 Type
 ...
procedure MySort(DBGrid0:TDBGrid; Column: TColumn);//預聲明過程
 private
 { Private declarations }
  psIndexName:string; //記錄當前索引名稱 
  plAscend:boolean;   //記錄當前索引名稱的索引狀態
 public
 { Public declarations }
end;  

procedure TForm1.MySort(DBGrid0: TDBGrid; Column: TColumn);
var
//本模塊使用到的psIndexName,plAscend兩個變量見上定義 
  mode: char;       //記錄是'升序',還是'降序' 
  ColName: string; //記錄當前字段名 
  iCol: Integer;   //記錄當前列號 
begin
  with DBGrid0.DataSource.DataSet as TTable do //Table0
  begin
//檢測當前工作表是否已打開 
    if not Active then
    begin
      MessageBeep(0);
      Application.MessageBox('工作表尚未打開！','停止' , MB_OK   MB_ICONSTOP);
      Abort
    end;
//檢測當前字段是否'能排序'.以下字段類型不能排序 
  case Column.Field.DataType of
      ftBoolean,
        ftBytes,
        ftBlob, //Binary
        ftMemo,
        ftGraphic,
        ftFmtMemo, //Formatted memo
        ftParadoxOle: //OLE
        begin
          MessageBeep(0);
          Application.MessageBox(Pchar('項目'' '   Column.FieldName   ' '' '   '不能排序！'), '停止',MB_OK MB_ICONSTOP);
            Abort
        end;
    end; //case
    mode := '0';
    iCol := Column.Field.FieldNo - 1;
    try
      ColName := Column.fieldname;
      if psIndexName = Column.fieldname then
      begin //與原來同列 
        if plAscend then //升序 
        begin
          mode := '2';
          IndexName := ColName   '2'; //應'降序' 
        end
        else
        begin
          mode := '1';
          IndexName := ColName   '1'; //應'升序' 
        end;
        plAscend := not plAscend;
      end
      else
      begin //新列 
        IndexName := ColName   '2';
        plAscend := false;
        psIndexName := ColName;
      end;
    except

 
on EDatabaseError do //若未有索引,則重新建立 
     begin
        Messagebeep(0);
    //以下新建索引 
        IndexName := '';
        Close;
        Exclusive := true;
        if mode = '1' then
          AddIndex(ColName + '1', ColName, [ixCaseInsensitive], '') 
        else //轉換'0'
          AddIndex(ColName + '2', ColName, [ixDescending, ixCaseInsensitive], '');
        Exclusive := false;
        Open;
        try //try 1
          if mode <> '1' then
          begin
            mode := '2'; //轉換
            plAscend := false;
          end
          else
            plAscend := true;
          IndexName := ColName + mode;
          psIndexName := ColName;
        except
          on EDBEngineError do
            IndexName := '';
        end //try 2
      end
    end;
    First;
  end; //with
  DBGrid0.SelectedIndex := iCol;
end; //End of MySort