- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 一个大家经常犯的错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3091)
-- 发布时间：2009/6/10 15:37:00
-- 一个大家经常犯的错
从yangming斑竹的窗口打印中抓出来的：
Dim lbr As WinForm.Label
lbr = forms("记帐").Controls("Label4")
lbr.Text = Format(dr("日期"),"yyyy年MM月dd日")
Dim lbdj As WinForm.Label
lbdj = forms("记帐").Controls("Label16")
lbdj.Text = CUMoney(dr("借方金额"))
Dim lblb1 As WinForm.Label
lblb1 = forms("记帐").Controls("Label22")
lblb1.Text = Left(dr("凭证类别"),1)
Dim lblb2 As WinForm.Label
lblb2 = forms("记帐").Controls("Label23")
lblb2.Text = Right(dr("凭证类别"),1)
没有必要针对每个控件定义一个变量，其实一个变量就行:
Dim lb As WinForm.Label
lb = forms("记帐").Controls("Label4")
lb.Text = Format(dr("日期"),"yyyy年MM月dd日")
lb = forms("记帐").Controls("Label16")
lb.Text = CUMoney(dr("借方金额"))
lb = forms("记帐").Controls("Label22")
lb.Text = Left(dr("凭证类别"),1)
lb = forms("记帐").Controls("Label23")
lb.Text = Right(dr("凭证类别"),1)
要是我，我会这样：
With forms("记帐").
.Controls("Label4").Text = Format(dr("日期"),"yyyy年MM月dd日")
.Controls("Label16").Text = CUMoney(dr("借方金额"))
.Controls("Label22").Text = Left(dr("凭证类别"),1)
.Controls("Label23").Text = Right(dr("凭证类别"),1)
End With
用不用变量，看个人习惯，但是不要定义太多的变量，变量可以重用的，除非一个控件要反复调用几次，而且调用其它控件之后，还要回头调用，那么可以考虑给这个控件定义一个专用变量，向前面这种用完就丢的变量，完全可以用一个就行。
[此贴子已经被作者于2009-6-10 15:40:12编辑过]
-- 发布时间：2009/6/10 15:43:00
--
正需要您这样的指点～ 多多益善啊····
-- 发布时间：2009/6/10 16:02:00
--
找碴
找碴才会进步！
-- 发布时间：2009/6/10 16:08:00
--
受用！
-- 发布时间：2009/6/10 16:17:00
--
我觉得论坛 帖子不能取 花俏的题目
就本贴
我个人的意见 应该取：
《多变量与不用变量的实例》
或者
《代码瘦身实例《一》》
这样以后归类 总结 对论坛的将来 会有用
excelhome 论坛 灌了个 遍地是黄金贴的垃圾堆 我是说说。。。。。
-- 发布时间：2009/6/10 16:30:00
--
感谢,受用
-- 发布时间：2009/6/10 18:02:00
--
希望贺老师经常找找我们的毛病,呵呵
-- 发布时间：2009/6/10 20:50:00
--
哦，受教。
-- 发布时间：2009/6/10 23:51:00
--
呵.老总应多把自己的经验分享才是!让我等初哥学习学习!
-- 发布时间：2009/6/11 7:21:00
--
学习了,很好的东西