Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

关于循环计数的问题

初学者  发表于:2018-11-08 09:45:42  
复制

我for循环方式,再加上if语句,对符合条件的进行表数据添加操作,不符合条件的记录累计条数(框架编码如下)。但

在执行时只记录了一条(应该有3条不满足条件),并没有实现累加。望各位老师指点。谢谢!!

 

框架代码如下:

Dim bb As Integer

 bb = 0
  na = 1
   For na = 1 To 300

    if 满足添加条件 then

     执行添加语句

   else

   bb=bb+1

end if

next na

 

 

Top
伊西军 发表于:2018-11-08 09:58:03
那就可能是  "满足添加条件"   写错了

初学者 发表于:2018-11-08 10:06:04
我逐句检查了,不满足条件其他2条进入到了bb=bb+1,但结果bb任然为1.

chinasa 发表于:2018-11-08 11:13:45

你在下面两个地方加上msgbox bb,执行代码观察下,1)看看跳出几次bb信息,理论上应该有3次(除了总计),如果不是3次说明另外2条没有不“满足添加条件”。   2)看看每次对话框是不是递增的,若跳出3次对话框而不是递增的,说明你bb=bb+1不是你举例这么简单,可能有问题。

 

 

Dim bb As Integer

 bb = 0
  na = 1
   For na = 1 To 300

    if 满足添加条件 then

     执行添加语句

   else

    bb=bb+1

    msgbox bb

end if

next na

msgbox "总计:" & bb

 



初学者 发表于:2018-11-08 14:27:44
msgbox bb显示了三次,都是1,总计显示也是1;整个代码用到bb作为变量的就只有这个地方。

chinasa 发表于:2018-11-08 14:48:04
bb显示了三次说明“满足添加条件”没问题。也就是你自己说的bb变量问题,尽管你已经说了没问题,但实际上看起来确实是有问题的,如果代码不方便复制上来,那就自己看看把代码简化一下,逐步排除怀疑语句,缩小范围重点核查。

初学者 发表于:2018-11-08 17:01:55
好,按照你指导的自己先简化一下,再排查一下。谢谢指点!!

总记录:6篇  页次:1/1 9 1 :