DBgrideh控件用过的人请进来一下

Question

1。怎么设置可以将dbgrideh里面的内容存为execl,csv,text的格式？
2。怎么设置，dbgrideh点击标题栏，可以使里面的记录按照升序和降序自动排列？？请帮忙！！
谢谢

Answer 1

1。不知道……
2。现将dbgrideh各列的titlebutton设为true,再设置一列的sorter属性为smupeh或者smdowneh,然后再在dbgrideh的SortMarkingChanged事件中写代码，也就是重新排序，SortMarkingChanged事件代码例子如下：sstr := 'select * from (select t1.*,t2.bureau_name,t3.report_name ' +
    'from report_info t1,bureau_info t2,report_format t3 ' +
    'where t1.bureau_id=t2.bureau_id ' +
    'and t1.report_id=t3.report_id ' +
    'and t1.del_flag=0 ' +
    'and t1.bureau_id=''' + CodeStr + '''' + ') a ';
  ADOQuery2.close;
  ADOQuery2.SQL.Clear;
  for i := 0 to DBGridEh22.SortMarkedColumns.Count - 1 do
    if DBGridEh22.SortMarkedColumns[i].Title.SortMarker = smUpEh then
      s := ' order by ' + DBGridEh22.SortMarkedColumns[i].FieldName + ' DESC '
    else
      s := ' order by ' + DBGridEh22.SortMarkedColumns[i].FieldName;
  adoquery2.SQL.add(sstr + s);
  adoquery2.Open;

Answer 2

好象dbgrigeh2.3以上的版本都有自带的函数，可以直接导成eecl,text,csv的文件的，谁知道函数是什么？？

Answer 3

http://www.playicq.com/dispdoc.php?t=19&id=1966

Answer 4

1、use DBGridEhImpExp
 procedure TForm1.ppmSaveSelectionClick(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    Ext:String;
begin
  SaveDialog1.FileName := 'file1';
  if (ActiveControl is TDBGridEh) then
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
        2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
        3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
        SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
             SaveDialog1.FileName,False);
      end;
    end;
end;

Answer 5

注意：
要先全选内容
dbGrideh1.selection.selectall;