Office中国论坛/Access中国论坛

标题: 两段代码,为何第一次只运行一段 [打印本页]

作者: 飘零红叶 时间: 2007-1-23 23:16
标题: 两段代码,为何第一次只运行一段
目的:将第一张表中关键字与第二张表相同的,将第一张表的相关内容拷贝至第二张表,再判断第三章表与第二张表关键字相同与否,如果相同,再将第三章表的相关内容拷贝至第二张表,但是,在运行时,第一次运行,第二段代码没有执行,再运行一次,第二段代码开始执行.我再一个excel文件,准备打到相同的目的,结果是执行了,搞不同再这张表中第二段代码为何没有执行.本人在线等,恳请高手给予回复为盼![attach]22788[/attach]

[此贴子已经被作者于2007-1-24 15:17:28编辑过]

作者: 飘零红叶 时间: 2007-1-24 00:35
同志们,我一直在线等候,怎么没有人帮忙呀?

作者: 情比金坚 时间: 2007-1-24 01:36
那有个工资表？哪有工时工资？

row1 = Sheets("花名册").[A1].CurrentRegion.Rows.Count '获取花名册行数
row2 = Sheets("考勤").[A1].CurrentRegion.Rows.Count '获取考勤表行数
row3 = Sheets("过渡表").[A1].CurrentRegion.Rows.Count '获取过渡表行数
row4 = Sheets("工资表").[A1].CurrentRegion.Rows.Count '获取工资表行数
row5 = Sheets("工时工资").[A1].CurrentRegion.Rows.Count '获取工时工资表的行数'

作者: 飘零红叶 时间: 2007-1-24 16:27

以下是引用情比金坚在2007-1-23 17:36:00的发言：

那有个工资表？哪有工时工资？

row1 = Sheets("花名册").[A1].CurrentRegion.Rows.Count '获取花名册行数
row2 = Sheets("考勤").[A1].CurrentRegion.Rows.Count '获取考勤表行数
row3 = Sheets("过渡表").[A1].CurrentRegion.Rows.Count '获取过渡表行数
row4 = Sheets("工资表").[A1].CurrentRegion.Rows.Count '获取工资表行数
row5 = Sheets("工时工资").[A1].CurrentRegion.Rows.Count '获取工时工资表的行数'

对不起,删除多余代码时没有考虑清楚,但是,我把row4,row5行删除后,第一次运行时只拷贝花名册数据,第二次运行时才拷贝考勤表数据,不知道为什么,还请不吝解决为盼!

[此贴子已经被作者于2007-1-24 8:29:25编辑过]

作者: 飘零红叶 时间: 2007-1-24 16:31
标题: 不行
我把row4,row5行代码删除后也是一样,第一次运行只拷贝花名册数据,再次运行才拷贝考勤表数据

作者: 情比金坚 时间: 2007-1-25 05:12
[attach]22821[/attach]

无论做什么事有个好习惯是重要的，所以建议你：

1：变量使用前都要命名

2：代码按层次缩进

虽然以上不是必须的

作者: 飘零红叶 时间: 2007-1-25 16:32
听君一席话胜读十年书，非常感谢“情比金坚”的帮助！

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