DGgrid的问题

hyd_cn 2007-03-24 09:43:25
为了设置显示字段的宽度,设置了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);
...全文
140 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hyd_cn 2007-03-25
  • 打赏
  • 举报
回复
我的column是直接在控件上修改的,代码里面没有体现
双击grid后增加的
dreamnyj 2007-03-25
  • 打赏
  • 举报
回复
...代码好象并不完整。。

你的column在那里?

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧