procedure TfrmHR_Operate.OrderUniDesc;
begin
OldSQLText := UniQuery1.SQL.Text;
UniQuery1.Close;
UniQuery1.SQL.Clear;
UniQuery1.SQL.Text := OldSQLText + ' order by ' + DBGridEh1.Columns[5].FieldName + ' DESC';
//这里的SQL语句是正常的
UniQuery1.Open; UniQuery1.SQL.Text := OldSQLText; //这里赋值后,dbgirdeh的显示就没有了,取消这句就正常 DBGridEh1.SetFocus;
end;delphi xe
Unidac 连接 MYSQL
begin
OldSQLText := UniQuery1.SQL.Text;
UniQuery1.Close;
UniQuery1.SQL.Clear;
UniQuery1.SQL.Text := OldSQLText + ' order by ' + DBGridEh1.Columns[5].FieldName + ' DESC';
//这里的SQL语句是正常的
UniQuery1.Open; UniQuery1.SQL.Text := OldSQLText; //这里赋值后,dbgirdeh的显示就没有了,取消这句就正常 DBGridEh1.SetFocus;
end;delphi xe
Unidac 连接 MYSQL
UniQuery1.SQL.Text:=OldSqlText;
UniQuery1.Open;
DBGridEh1.SetFocus;