主题：窗口动态添加控件，

我用主窗口双击弹出增加画面后，使用动态添加控件，点击增加后出现找不到控件，不知道是什么问题啊
此主题相关图片如下：动态添加控件后，点击增加出现问题.png

动态添加控件代码

For Each c As Col In Tables(Vars("ff")).cols
    Dim txt As WinForm.TextBox
    txt = Forms("新增").CreateControl("TextBox1", ControlTypeEnum.TextBox)
    txt.Left = 120
    txt.width = 180
    txt.Top = 26* c.Index
    Forms("新增").AddControl(txt)
    txt.BindingField = c.Table.Name & "." & c.Name '必须先将控件加入到窗口或容器中,才能设置绑定字段

   
Next
For Each c As Col In Tables(Vars("ff")).cols
Dim txt1 As WinForm.Label
    txt1 = Forms("新增").CreateControl("lable1", ControlTypeEnum.Label)
    txt1.Left = 10
    txt1.Top = 26* c.Index
    Forms("新增").AddControl(txt1)
     txt1.Text =c.Name '必须先将控件加入到窗口或容器中,才能设置绑定字段
Next

 

新增按钮代码:

Dim t1 As String = e.Form.Controls("combobox1").VALUE
Dim t2 As String = e.Form.Controls("combobox2").VALUE
Dim t3 As String = e.Form.Controls("combobox3").VALUE
Dim t4 As String = e.Form.Controls("combobox4").VALUE
Dim t5 As String = e.Form.Controls("combobox5").VALUE
Dim t6 As String = e.Form.Controls("combobox6").VALUE
Dim t7 As String = e.Form.Controls("combobox7").VALUE
Dim t8 As String = e.Form.Controls("combobox8").VALUE
Dim t9 As String = e.Form.Controls("combobox9").VALUE
Dim t10 As String = e.Form.Controls("combobox10").VALUE

If DataTables(Vars("ff")).DataCols.Count = 0 Then
    Tables(Vars("ff")).AddNew
Else
   If t2 = "" And t3 = "" And t4 = "" And t5 = "" And t6 = "" And t7 = "" And t8 = "" And t9 = "" And t10 = "" Then
        MessageBox.show("请输入完整的材料信息","提示")
        Return
    Else
        Dim dr As Row = Tables(Vars("ff")).AddNew
            dr("部门编号") = t1
            dr("员工编号") = t2
            dr("员工姓名") = t3
            dr("性别") = t4
            dr("员工职务") = t5
            dr("联系电话") = t6
            dr("员工传真") = t7
            dr("员工邮箱") = t8
            dr("详细地址") = t9
            dr("是否离职") = t10
    End If
   
End If

实例

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报价管理系统.zip

员工---新增---新增
此主题相关图片如下：动态添加控件后，点击增加出现问题.png

改过来以后还是不行啊

还有别的方法实现增加功能吗？

 

不行也

 

增加行增加不上去也

是啊，我就是要实现窗口表增加啊