VBA如何定义textbox控件数组，然后遍历数组中的每一个控件并对满足条件的textbox赋值。

Question

VBA如何定义textbox控件数组，然后遍历数组中的每一个控件并对满足条件的textbox赋值。如图:我在窗体中放入了10个textbox，当有其中几个被填入数据过后，点击确定时，剩下的没有被填入的textbox会填入0

Answer 1

VBA显然是不支持数组控件的，但可以这样的，假如金额的textbox名称依次被命名为sum1,sum2,sum3........

private sub cmdOk_click()
dim a as control
for each a in me.controls
if left(a.name,3)="sum" and a.value ="" then a.value=0
next
end sub