主题：录入窗口功能求教

For i As Integer = 1 To 8

    Dim flag As Boolean =  i <= val(e.Form.Controls("Combobox1").Text)
    e.Form.Controls("Textbox" & i).Visible = flag

    e.Form.Controls("Label" & i).Visible = flag

    e.Form.Controls("Label" & i).Text = e.Form.Controls("Combobox3").Text & i
Next