循环切换功能

lyxiong　发表于：2012-06-10 00:27:14 　

如何实现点击成本价标签控件进行”成本价→批发价→批零价→零售价“间循环切换功能。

煮江品茶发表于：2012-06-10 06:09:15

成本价标签控件双击事件中写：

select case me.成本价_Label.caption
     case "成本价"
            me.成本价.ControlSource="[批发价]"
            me.成本价_Label.caption="批发价"
     case "批发价"
            me.成本价.ControlSource="[批零价]"
            me.成本价_Label.caption="批零价"
     case "批零价"
            me.成本价.ControlSource="[零售价]"
            me.成本价_Label.caption="零售价"
     case "批零价"
            me.成本价.ControlSource="[成本价]"
            me.成本价_Label.caption="成本价"
end select

Top

煮江品茶发表于：2012-06-10 06:15:50

处理方法可参见：http://www.accessoft.com/blog/article-show.asp?userid=10802&Id=4674

Top

lyxiong 发表于：2012-06-10 11:44:52

谢谢煮江品茶老师的解答，但我发现还是达不到我所想实现的功能，你的方法只能实现“成本价→批发价→批零价→零售价”间转换一次。我想要的是可以一直循环的，能帮忙解决吗？煮江品茶老师。

Top

jia 发表于：2012-06-10 14:11:33

成本价标签控件单击事件中写：

select case me.成本价_Label.caption
     case "成本价"
            me.成本价.ControlSource="[批发价]"
            me.成本价_Label.caption="批发价"
     case "批发价"
            me.成本价.ControlSource="[批零价]"
            me.成本价_Label.caption="批零价"
     case "批零价"
            me.成本价.ControlSource="[零售价]"
            me.成本价_Label.caption="零售价"
     case "零售价"
            me.成本价.ControlSource="[成本价]"
            me.成本价_Label.caption="成本价"
end select

试验过了，能实现“成本价→批发价→批零价→零售价”间转换一直循环。

Top

lyxiong 发表于：2012-06-10 20:42:11

原来煮江品茶老师所给的代码：最后个case "批零价"应改为case "零售价" ；jia　老师给发现了。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

[5分]循环切换功能