afsaneh.asp
دوشنبه 20 مرداد 1393, 00:14 صبح
با سلام
در اجرای کد زیر وقتی میخوام داده ها رو از DataGrid به اکسل اکسپورت کنم با خطای Access violation روبرو میشم. من یک برنامه نویس C# هستم و متاسفانه در مورد Delphi هیچ اطلاعی ندارم. . ممنون میشم راهنمایی کنید.
sx1: TscExcelExport;
...
procedure TForm1.exerExecute(Sender: TObject);
var
ds : TDataset;
cname,cclass : string;
begin
cname := Screen.ActiveControl.Name;
cclass := Screen.ActiveControl.ClassName;
if cclass='TDBGridEh' then
begin
ds:=(ActiveControl As TDBGridEh).DataSource.DataSet;
try
sx1.ExcelVisible:=True;
sx1.LoadDefaultProperties;
sx1.Dataset:=ds ;
sx1.WorksheetName:='Sheet1';
sx1.ExportDataset;
finally
sx1.Disconnect;
end;
end;
if cclass='TDBGrid' then
begin
ds:=(ActiveControl As TDBGrid).DataSource.DataSet;
try
sx1.ExcelVisible:=True;
sx1.LoadDefaultProperties;
sx1.Dataset:=ds ;
sx1.WorksheetName:='Sheet1';
sx1.ExportDataset;
finally
sx1.Disconnect;
end;
end;
end;
در اجرای کد زیر وقتی میخوام داده ها رو از DataGrid به اکسل اکسپورت کنم با خطای Access violation روبرو میشم. من یک برنامه نویس C# هستم و متاسفانه در مورد Delphi هیچ اطلاعی ندارم. . ممنون میشم راهنمایی کنید.
sx1: TscExcelExport;
...
procedure TForm1.exerExecute(Sender: TObject);
var
ds : TDataset;
cname,cclass : string;
begin
cname := Screen.ActiveControl.Name;
cclass := Screen.ActiveControl.ClassName;
if cclass='TDBGridEh' then
begin
ds:=(ActiveControl As TDBGridEh).DataSource.DataSet;
try
sx1.ExcelVisible:=True;
sx1.LoadDefaultProperties;
sx1.Dataset:=ds ;
sx1.WorksheetName:='Sheet1';
sx1.ExportDataset;
finally
sx1.Disconnect;
end;
end;
if cclass='TDBGrid' then
begin
ds:=(ActiveControl As TDBGrid).DataSource.DataSet;
try
sx1.ExcelVisible:=True;
sx1.LoadDefaultProperties;
sx1.Dataset:=ds ;
sx1.WorksheetName:='Sheet1';
sx1.ExportDataset;
finally
sx1.Disconnect;
end;
end;
end;