急！DBGRID问题！

Question

你在代码里设置一下dbgrid的selectedfieldindex不就可以了吗

Answer 1

或者在DBGrid1TitleClick(Column: TColumn)事件中加上这么一句
dbgrid1.Selectedfield:=column.Field;

Answer 2

定义一个函数为DBGrid类，然后可以使用它来选择DBGrid的列与行，当点击字段排序时，能不能让列.show 这样试试看。

Answer 3

错了，应该是定义好后，可以用DBGrid.selectedfield

Answer 4

这段代码用了两年，没出过问题
//==============================================================================
//点击DBGrid标题栏对查询结果排序************************************************
//==============================================================================
procedure DBGridTitleOrder(Column: TColumn);
var
  SQLStr, OrderFieldName, TempStr: string;
  i, OrderPos: integer;
  SavedParams: TParams;
begin
  if not (TQuery(TDBGrid(Column.Grid).DataSource.DataSet).State in [dsBrowse]) then Exit;
  SavedParams := nil;
  for i:=0 to Column.Grid.FieldCount-1 do
  begin
    {TDBGrid(Column.Grid).Columns[i].Font.Color := clBlack;}
    TDBGrid(Column.Grid).Columns[i].Title.Caption := TDBGrid(Column.Grid).Columns[i].Field.DisplayName;
  end;
  if not (Column.Field.FieldKind in [fkData,fkLookup]) then Exit;
  if Column.Field.FieldKind=fkData
  then OrderFieldName := LowerCase(Column.Field.FieldName)
  else OrderFieldName := LowerCase(Column.Field.KeyFields);
  while Pos(OrderFieldName,';')<>0 do OrderFieldName := copy(OrderFieldName,1,Pos(OrderFieldName,';')-1)+','+copy(OrderFieldName,Pos(OrderFieldName,';')+1,100);
  with TQuery(TDBGrid(Column.Grid).DataSource.DataSet) do
  begin
    SQLStr := LowerCase(SQL.Text);
    if ParamCount>0 then
    begin
      SavedParams := TParams.Create;
      SavedParams.Assign(Params);
    end;
    OrderPos := pos('order',SQLStr);
    if (OrderPos=0) or (pos(OrderFieldName,copy(SQLStr,OrderPos,100))=0) then
    begin
      TempStr := ' order by ' + OrderFieldName + ' asc';
      Column.Title.Caption := Column.Title.Caption + '（▲）';
      {Column.font.Color := clRed;}
    end else if pos('asc',SQLStr)=0 then
    begin
      TempStr := ' order by ' + OrderFieldName + ' asc';
      Column.Title.Caption := Column.Title.Caption + '（▲）';
      {Column.font.Color := clRed;}
    end else
    begin
      TempStr := ' order by ' + OrderFieldName + ' desc';
      Column.Title.Caption := Column.Title.Caption + '（▼）';
      {Column.font.Color := clGreen;}
    end;
    if OrderPos<>0 then SQLStr := Copy(SQLStr,1,OrderPos-1);
    SQLStr := SQLStr + TempStr;
    Active := False;
    SQL.Clear;
    SQL.Text := SQLStr;
    if ParamCount>0 then
    begin
      Params.AssignValues(SavedParams);
      SavedParams.Free;
    end;
    Prepare;
    Open;
  end;
end;