主题：相同类型如何声明变量

两个文本框:

 

Dim cmb1 As WinForm.TextBox

cmb1 = e.form.Controls("缴费期间")

Dim cmb2 As WinForm.TextBox

Cmb2 = e.form.Controls("缴费月数")

For Each r As Row In Tables("工资核算_Table2").Rows

    r("缴费期间") = cmb1.Value

    r("缴费月数") = cmb2.Value

Next

 

是不是可以换种写法?看了枚举,数组,集合,字典,不知哪个合适,也不知怎么用

我试试:

 

Dim Str1,Str2 As String

Dim Str As WinForm.TextBox

Str1 = e.form.Controls("缴费期间")

Str2 = e.form.Controls("缴费月数")

For Each r As Row In Tables("工资核算_Table2").Rows

    r("缴费期间") = Str1.Value

    r("缴费月数") = Str2.Value

Next

OK!原来可以这么简洁!

 

又过不了一个弯,如何声明相同的控件名称:

 

 

一个窗口有三个CheckedComboBox,列表引用的都是同一个表的相同列

 

奇怪,代码帖不上来

突然开窍,搞定了,不过代码帖不上来.