以下是引用程兴刚在2009-11-6 2:07:00的发言:
这是避免重复添加,在添加前先删除控件,避免报错的两段示例代码,或许对您有帮助:
方法一:
Dim Multi As String = "A|B|C|D|E|F|G|H|I|JD1|JD2"
Dim Values() as String
Values = Multi.split("|")
For Index As Integer = 0 To Values.Length - 1
if e.Form.ExistControl(Values(Index)) = true
e.Form.RemoveControl(Values(Index))
end if
Next
方法二:
For Index As Integer = 1 To 25
if e.Form.ExistControl("Painter" & Index) = true
e.Form.RemoveControl("Painter" & Index)
end if
Next
注:方法二需要控件名称有一定的规律性,但方便很多!
收藏