vb弹出窗体代码,在线等
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) '双击
Dim met
Select Case Node.Text
Case "" & Node.Text & ""
Call OpenSet
SQL = "select * from 窗体设置 where 子窗体名称='" & Node.Text & "'"
rf.Open SQL, ct, 1, 3
If "" & Node.Text & "" = rf!子窗体名称 And rf!链接窗体 <> "" Then
'这个地方如何加弹出 rs!链接窗体 的代码
'rs!链接窗体.show 这样是不行的,出现错误,提示.show未找到方法或数据成员
End If
Call CloseSet
End Select
End Sub
[解决办法]
也可以
dim a as form
set a=Forms.Add (rf!链接窗体)
a.show
[解决办法]
