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

两个文本框:

 

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 Val1,Val2 As Integer
Dim Str1,Str2 As String

上面的代码，定义了两个整数型变量Val1、Val2，以及两个字符型变量Str1、Str2。

我试试:

 

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

Dim Str1,Str2 As String

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

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

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

    r("缴费期间") = Str1

    r("缴费月数") = Str2

Next

OK!原来可以这么简洁!

 

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

 

 

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

 

奇怪,代码帖不上来