[浏览完整版]
标题：一个大家经常犯的错
1楼
狐狸爸爸 发表于：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
用不用变量，看个人习惯，但是不要定义太多的变量，变量可以重用的，除非一个控件要反复调用几次，而且调用其它控件之后，还要回头调用，那么可以考虑给这个控件定义一个专用变量，向前面这种用完就丢的变量，完全可以用一个就行。
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编辑过]
2楼
mr725 发表于：2009/6/10 15:43:00
正需要您这样的指点～ 多多益善啊····
3楼
hlxz 发表于：2009/6/10 16:02:00找碴
找碴才会进步！
找碴才会进步！
4楼
易狐 发表于：2009/6/10 16:08:00受用！
5楼
hlxz 发表于：2009/6/10 16:17:00我觉得论坛 帖子不能取 花俏的题目
就本贴
我个人的意见 应该取：
《多变量与不用变量的实例》
或者
《代码瘦身实例《一》》
这样以后归类 总结 对论坛的将来 会有用
excelhome 论坛 灌了个 遍地是黄金贴的垃圾堆 我是说说。。。。。
就本贴
我个人的意见 应该取：
《多变量与不用变量的实例》
或者
《代码瘦身实例《一》》
这样以后归类 总结 对论坛的将来 会有用
excelhome 论坛 灌了个 遍地是黄金贴的垃圾堆 我是说说。。。。。
6楼
狐哥 发表于：2009/6/10 16:30:00感谢,受用
7楼
yangming 发表于：2009/6/10 18:02:00希望贺老师经常找找我们的毛病,呵呵
8楼
ylm 发表于：2009/6/10 20:50:00哦，受教。
9楼
gdlgh 发表于：2009/6/10 23:51:00呵.老总应多把自己的经验分享才是!让我等初哥学习学习!
10楼
hbfnmxb 发表于：2009/6/11 7:21:00学习了,很好的东西