For Each dr As Row In Tables("供货企业目录") For i = 1 To 100 If e.Form.Controls(but"& i &") Is Nothing Then MessageBox.show(1) Exit For Exit For End If NextNext
老师,这个忘记了, 找不到。 判断控件是否存在。