******请高手帮忙！！！！＊＊＊＊＊＊＊＊＊

[xhema1980]

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

[taosihai1only]

up

[titan90]

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

[supergreenbean]

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

[射天狼]

1.
那你要多文档窗口干什么,多文档的优势就是可以同时打开与管理多个子窗口!!

Private Sub Command1_Click()
CloseWindow
Form2.Show
End Sub

Private Sub Command2_Click()
CloseWindow
Form3.Show
End Sub

Public Function CloseWindow()
Dim frm As Form

For Each frm In Forms
If frm.Name <> "frmMain" Then
Unload frm
End If
Next
End Function

2.