1)多文档窗体中怎样实现打开一个子窗体时关闭前一个已经打开的窗体?
2)TrueDBGrid中为什么单击一行时再切换到下一行要单击两次才能实现,怎样实行单击一次就可以实现取得当前行的第一列值(它总会延迟一行)

解决方案 »

  1.   

    1:
     If Not MDIForm1.ActiveForm Is Nothing Then Unload MDIForm1.ActiveForm
      

  2.   

    第1个问题:
    在要打开的窗体里写
    Private Sub Form_Load()
        Dim frm As Form
        Set frm = MDIForm1.ActiveForm
        If Not frm Is Nothing Then frm.Hide
    End Sub
      

  3.   

    1.
    那你要多文档窗口干什么,多文档的优势就是可以同时打开与管理多个子窗口!!Private Sub Command1_Click()
        CloseWindow
        Form2.Show
    End SubPrivate Sub Command2_Click()
        CloseWindow
        Form3.Show
    End SubPublic Function CloseWindow()
        Dim frm As Form
        
        For Each frm In Forms
            If frm.Name <> "frmMain" Then
                Unload frm
            End If
        Next
    End Function2.