------循环赋值------

>>>>>>>>循环赋值为 ""空

For i = 0 To 9
Me.Controls("txtSettleType" & i).Text = ""
Next i

>>>>>>>>循环取DsSettleType里的值，赋值给一群以txtSettleType起头的textbox

For i = 0 To RowCount(DsSettleType) - 1
Me.Controls("txtSettleType" & i).Text = GetDsValue(DsSettleType, "Settletype", i)
Next i