此主题相关图片如下: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
没结果。