保证全给分!如果解决!刚找到工作,遇到难题关于Dbgrideh,解决不了,可能要走人!

[madyak]

Dbgrideh控件使用多行标题功能时,如何将其数据全部导入EXCEL,关键是多行的标题如何能正确导入EXCEL.要求在EXCEL里的显示结果和Dbgridehr的显示完全一样!!!

[baiyongchun]

dbgrideh是tdbgrid类吗？

[madyak]

DBGridEh1: TDBGridEh;
差不多!是TDBGridEh类!

[404]

太简单了!
去下一个ehlib2.3版本,本身就带有转换成各种格式文件的函数

[madyak]

404你好!哪可以下?

[lxpbuaa]

var RangeE: Excel2000.Range;

RangeE := ExcelApplication.Range ['A1', 'A1'];
for I := 0 to Table1.FieldCount-1 do0D begin
RangeE.HorizontalAlignment := xlCenter;
RangeE.VerticalAlignment := xlCenter;
RangeE.Borders.LineStyle := xlContinuous;
RangeE.Font.Bold := true;
RangeE.WrapText := true;
RangeE.Value := Table1.Fields[I].DisplayLabel;
RangeE := RangeE.Next;
end;


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————


　　　　　　　

[lxpbuaa]

var RangeE: Excel2000.Range;

RangeE := ExcelApplication.Range ['A1', 'A1'];
for I := 0 to Table1.FieldCount-1 do0D begin
RangeE.HorizontalAlignment := xlCenter;
RangeE.VerticalAlignment := xlCenter;
RangeE.Borders.LineStyle := xlContinuous;
RangeE.Font.Bold := true;
RangeE.WrapText := true;
RangeE.Value := Table1.Fields[I].DisplayLabel;
RangeE := RangeE.Next;
end;


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————


　　　　　　　

[lxpbuaa]

var RangeE: Excel2000.Range;

RangeE := ExcelApplication.Range ['A1', 'A1'];
for I := 0 to Table1.FieldCount-1 do0D begin
RangeE.HorizontalAlignment := xlCenter;
RangeE.VerticalAlignment := xlCenter;
RangeE.Borders.LineStyle := xlContinuous;
RangeE.Font.Bold := true;
RangeE.WrapText := true;
RangeE.Value := Table1.Fields[I].DisplayLabel;
RangeE := RangeE.Next;
end;


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————


　　　　　　　

[404]

我也忘了在那里下的了.留下你的幽香吧