Office中国论坛/Access中国论坛

标题: [求助]大侠帮忙做一个进度条嘛！ [打印本页]

作者: fuwen 时间: 2006-8-6 21:05
标题: [求助]大侠帮忙做一个进度条嘛！
最好是上面有一个详细每个过程的进度条，下面有一个总进度条。关键代码如下：
            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 合同编号,项目名称,项目分类,项目单位,实施负责人,填表日期,县名,乡镇名,村名,户主名,东经,北纬,海拔,人口数量,活动内容,活动开始日期,活动结束日期,受益资金,自筹资金,受益规模,投劳天数,协调人,验收人,备注)"

请执行数据导入窗体。

[attach]19510[/attach]

作者: fuwen 时间: 2006-8-7 05:22
难道没有人会做，还是不愿意帮我做呀，可不要只下载源代码收藏呀。

作者: 一点通 时间: 2006-8-7 07:00
其实你说的方法在论坛的旧贴中有,但都没有实际意义的,只是表面的功夫,其目的是骗人的眼目

作者: fuwen 时间: 2006-8-7 14:51

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

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

作者: fuwen 时间: 2006-8-8 20:00
沉到水里了都没有帮到做喃。

作者: fuwen 时间: 2006-8-14 21:59
?????????????????????????????????????

作者: 情比金坚 时间: 2006-8-14 23:44

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

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

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

作者: fuwen 时间: 2006-8-15 01:33
速度慢没事。只要有显示就好办，能够整个DAO的示例不？谢谢了，我已经引用DAO了。

作者: 情比金坚 时间: 2006-8-15 07:15
真拿你没办法
[attach]19773[/attach]

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

作者: 7777777 时间: 2009-3-19 17:17
DDDDDDDDDDDDD

作者: wuwu200222 时间: 2022-4-24 16:20
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)