[求助]大侠帮忙做一个进度条嘛！

fuwen

最好是上面有一个详细每个过程的进度条，下面有一个总进度条。关键代码如下：
               DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "保存数据", Dir(Me.Text32.Text), True, ""
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.合同编号 = Trim(合同编号)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.项目名称 = Trim(项目名称)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.项目分类 = Trim(项目分类)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.项目单位 = Trim(项目单位)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.实施负责人 = Trim(实施负责人)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.县名 = Trim(县名)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.乡镇名 = Trim(乡镇名)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.村名 = Trim(村名)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.户主名 = Trim(户主名)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.活动内容 = Trim(活动内容)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.协调人 = Trim(协调人)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.验收人 = Trim(验收人)"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.受益资金 = 0 WHERE (((保存数据.受益资金) Is Null))"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.受益规模 = 0 WHERE (((保存数据.受益规模) Is Null))"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.自筹资金 = 0 WHERE (((保存数据.自筹资金) Is Null))"
               DoCmd.RunSQL "UPDATE 保存数据 SET 保存数据.投劳天数 = 0 WHERE (((保存数据.投劳天数) Is Null))"
               DoCmd.RunSQL "delete * from 保存数据 where id not in (select min(id) from 保存数据 group by 合同编号,项目名称,项目分类,项目单位,实施负责人,填表日期,县名,乡镇名,村名,户主名,东经,北纬,海拔,人口数量,活动内容,活动开始日期,活动结束日期,受益资金,自筹资金,受益规模,投劳天数,协调人,验收人,备注)"



请执行数据导入窗体。

fuwen

难道没有人会做，还是不愿意帮我做呀，可不要只下载源代码收藏呀。

一点通

其实你说的方法在论坛的旧贴中有,但都没有实际意义的,只是表面的功夫,其目的是骗人的眼目

fuwen

以下是引用一点通在2006-8-6 23:00:00的发言：
其实你说的方法在论坛的旧贴中有,但都没有实际意义的,只是表面的功夫,其目的是骗人的眼目

我搜索过旧贴，但没有找到，所以请大侠帮忙嘛。做一个进度条只是为了美观一下该程序，也没有什么其他的具体应用目的，防止别人以为死机了而造成数据库的损坏。

fuwen

沉到水里了都没有帮到做喃。

fuwen

?????????????????????????????????????

情比金坚

以下是引用fuwen在2006-8-6 13:05:00的发言：


最好是上面有一个详细每个过程的进度条，下面有一个总进度条。关键代码如下：

须用ado或dao才能实现，但会减慢操作的速度，不提倡。

fuwen

速度慢没事。只要有显示就好办，能够整个DAO的示例不？谢谢了，我已经引用DAO了。

情比金坚

真拿你没办法

[此贴子已经被作者于2006-8-15 1:41:34编辑过]

7777777

DDDDDDDDDDDDD