Question

delphi7中让excel中的数据导入到cxgrid控件中并显示

var
xlsName : string;
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Filter := '*.XLS|*.XLS';
OpenDialog1.DefaultExt := 'XLS';
if OpenDialog1.Execute then
begin
xlsName := OpenDialog1.FileName;
ADOQuery1.Close;

ADOQuery1.ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;'
+ 'Persist Security Info=false;Data Source= ' + xlsname;
ADOQuery1.SQL.Text := 'select * from [Sheet1$]';
ADOQuery1.Open;
end;

end;
end.
我用了这段代码，但是cxgrid中没有任何数据显示。

Answer 1

您好,你的写法是没有问题的.
可以查下以下几个问题:
1:cxgridDBTableView的Datacontroller.datasource有没有指到datasource,datasource有没有连到ADOQuery1
2:cxgridDBTableView的columns有没有加对,每个columns对应的列名有没有指正确.
希望能解决您的问题.

追问

我这个是动态加载的，columns在运行前没有一一对应，是不是columns要在运行时指定，代码如何实现，恳请指教，不胜感激!

追答

哦,那就是没有建columns了.
那你得写生成columns的代码了哦.
ADOQuery.open后.
var
AItem: TCxGridDBBandedColumn;
.....
CxgridDBTableView.BeginUpdate;
for i := 0 to ADOQuery.Fields.count -1 do
begin
AItem := CxgridDBTableView.CreateColumn;
AItem.Caption := ADOQuery.Fields[i].FieldName;
AItem.DataBinding.FieldName := ADOQuery.Fields[i].FieldName;
AItem.Width := 80;
end;
CxgridDBTableView.EndUpdate;

大概是这样写的吧.可能有错,你整理下就是了.

哦,那就是没有建columns了.
那你得写生成columns的代码了哦.
ADOQuery.open后.
var
AItem: TCxGridDBBandedColumn;
.....
CxgridDBTableView.BeginUpdate;
for i := 0 to ADOQuery.Fields.count -1 do
begin
AItem := CxgridDBTableView.CreateColumn;
AItem.Caption := ADOQuery.Fields[i].FieldName;
AItem.DataBinding.FieldName := ADOQuery.Fields[i].FieldName;
AItem.Width := 80;
end;
CxgridDBTableView.EndUpdate;

大概是这样写的吧.可能有错,你整理下就是了.

Answer 2

之前我们是按照规定的格式导入，如果excel 格式改变的话就会出现错误，一般不建议，其实delphi有自带导入excel资料的控件，可以试试看！

Answer 3

ADOQuery1 你没有绑定到cxgrid控件上吧？