vb中如何实现在点击按钮后显示表格?求按钮点开后实现表格的详细代码。

解决方案 »

  1.   


    private ctrlTable as new 'tablename'Private Sub Form_Load()
    On Error GoTo err
             Call Init_Ctrl
             Exit Sub
    err:
    End SubPrivate Sub Init_Ctrl()
    On Error GoTo err
             ctrlTable.Visible = False
             Exit Sub
    err:
    End Sub
    Private Sub Display_Ctrl()
    On Error GoTo err
             ctrlTable.Visible = True
             Exit Sub
    err:
    End SubPrivate Sub btnDisplay_Click()
    On Error GoTo err
             Call Display_Ctrl
             Exit Sub
    err:
    End Sub
      

  2.   

    我用MSFlexGrid建了一个按钮,然后把你的代码复制进去,运行不了。请问是什么原因啊?是不是要改MSFlexGrid的名字为'tablename'
    啊?
      

  3.   

    private ctrlTable as new 'tablename'
    表格名字是你的msflexgrid控件的名字
    代码复制进去当然没用按钮的名字为btnDisplay
      

  4.   


    Private Sub Command1_Click()
    MSFlexGrid1.Visible = True
    End Sub