DGgrid的问题
为了设置显示字段的宽度,设置了grid.column的字段
但是运行的时候就出现 无权限的问题,但是没有运行直接将数据源激活会可以正常显示是什么问题啊,以下代码如果没有去设置grid.column都是正常的,但是如果设置column,一运行就提示 “打不开数据文件,被独占或是没有权限”
begin
maxsum:=0;
hydopen.execute;
openname:=hydopen.filename;
ADOTable1.active:=false;
adotable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+openname+';Extended Properties=excel 8.0;Persist Security Info=False';
adotable1.Active:=true;
edit1.text:=inttostr(adotable1.recordcount);
adotable1.First;
while not adotable1.Eof do
begin
dgsum:=adotable1.FieldValues['金额'];
maxsum:=maxsum+dgsum;
adotable1.next;
end;
edit2.text:=floattostr(maxsum);