此主题相关图片如下：360截图17001019107117127.png

此主题相关图片如下：360截图17620509235504.png

如图，如何将第一图中的表名和列名传递到第二个窗口。我做了个内部函数：弹出窗口

Dim tb As DataTable = DataTables(args(0))
Dim frm As WinForm.Form = Forms("弹出窗口")
     
    frm.StopRedraw()
   
    Dim nms As List (of String) = tb.GetValues(args(1))
    Dim i As Integer
    Dim m As  Integer = frm.controls("GroupBox1").Height
    MessageBox.Show(m)
    Dim n As Integer = m\\nms.Count-4
    Dim n1=n-1
    For i=0 To nms.Count-1
        Dim radi As WinForm.RadioButton
        radi = frm.CreateControl(nms(i),ControlTypeEnum.radiobutton)
        radi.text = nms(i)
        radi.Left = 5
        radi.Top = n1*i+20
        frm.Controls("GroupBox1").AddControl(radi)
    Next
   
    If tb.Name = "主表" Then
        Dim rad As WinForm.RadioButton
        rad = frm.CreateControl("其它",ControlTypeEnum.radiobutton)
        rad.text ="其它"
        rad.left =5
        rad.Top = n1*nms.Count+20
        frm.Controls("GroupBox1").AddControl(rad)
        Dim txt As WinForm.TextBox
        txt = frm.CreateControl("txt1",ControlTypeEnum.TextBox)
        txt.left =80
        txt.Top = n1*nms.Count +25
        frm.Controls("GroupBox1").AddControl(txt)
        txt.Enabled = False
    End If
   
    frm.ResumeRedraw()

点击第一个窗口中的“重命名”，其click代码为：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.Select()
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd.ParentNode Is Nothing Then
    Forms("弹出窗口").open()
    Functions.Execute("弹出窗口","主表","分组")
   
Else
    tr.BeginEdit()
End If

没结果。

用全局变量

http://www.foxtable.com/webhelp/scr/1450.htm

此主题相关图片如下：360截图17280621415460.png

定义为string。结果如上。

第一个窗口中，重命名的click的代码：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.Select()
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd.ParentNode Is Nothing Then
    Forms("弹出窗口").open()
    Vars("biaoming")= "主表"
    Vars("lieming")="分组"
Else
    tr.BeginEdit()
End If

窗口二中的afterload的代码：

Functions.Execute("弹出窗口",Vars("biaoming"),Vars("lieming"))

贴出你函数【弹出窗口】的代码

不知道怎么回事，可以了。谢谢！