怎么判断form中有没有msflexgrid对象？

Question

private sub command1_Click()
dim c as Control
for each c in form.controls
   if typeof c is msflexgrid then
     msgbox c.name
   end if
nextend sub

Answer 1

    Dim ctl As Control
    For Each ctl In Form1.Controls
        If TypeOf ctl Is MSFlexGrid Then
            ’作相应的处理
        End If
    Next
即可！