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

[norxi]

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

请帮忙！！
谢谢

[mrfanghansheng]

1。不知道……
2。现将dbgrideh各列的titlebutton设为true,再设置一列的sortmarker属性为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;

[siyu2002]

1，不知道
2，同意楼上的

[blueshu]

我用过，可我都不知道：)

[norxi]

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

[daniel007]

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

[flyingkiller]

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;

[hongqi162]

没用过！学习！！！

[flyingkiller]

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

[jkjj20]

up