vb弹出窗体代码,在线等

[luck_zy08]

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

[luck_zy08]

没有人在吗,那位高手指点一下

[chinaboyzyq]

Forms.Add (rf!链接窗体)
Forms(Forms.Count - 1).Show

[chinaboyzyq]

也可以
dim a as form
set a=Forms.Add (rf!链接窗体)
a.show

[threenewbee]

[Quote=引用 1 楼 luck_zy08 的回复:]
没有人在吗,那位高手指点一下
[/Quote]
不能根据窗体名称字符串创建窗口。也没有必要。

可以写一个过程：

Sub ShowForm(FormName As String)
    Select Case FormName
        Case "Form1"
            From1.Show
        Case "frmData"
            frmData.Show
        Case "From2"
            From2.Show
        ...
        Case Else
            MsgBox "不存在的窗体！"
    End Select
End Sub

调用：
Call ShowForm(rs!链接窗体)

前提是，所有From必须在工程里面存在。

[threenewbee]

[Quote=引用 3 楼 chinaboyzyq 的回复:]
也可以
dim a as form
set a=Forms.Add (rf!链接窗体)
a.show
[/Quote]
似乎可行。学习。

[luck_zy08]

[Quote=引用 9 楼 patrickkong 的回复:]
我是建立小的sub系统dll，然后createobject（“xxx。application”）
[/Quote]
这个要怎么建立
public sub XXX?这们做全局

[yyyyyhhhhwwww]

没必要用SQL了，直接对应窗体名称跳出。

[luck_zy08]

我试试,直接用SHOW方法调用窗体简单,关键是我想通过数据库里面相对应的字段来弹出相对应的窗体,这样子对于后期的系统维护提高了效率,不用大量改动代码

[luck_zy08]

[Quote=引用 3 楼 chinaboyzyq 的回复:]
也可以
dim a as form
set a=Forms.Add (rf!链接窗体)
a.show
[/Quote]
此方法的可行,但是根直接SHOW出窗体没有区别,还是需要大量的代码

[帝企鹅已被占用]

我是建立小的sub系统dll，然后createobject（“xxx。application”）