我用主窗口双击弹出增加画面后，使用动态添加控件，点击增加后出现找不到控件，不知道是什么问题啊
此主题相关图片如下：动态添加控件后，点击增加出现问题.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
[此贴子已经被作者于2014-7-23 14:01:48编辑过]
加好友 
发短信
Post By：2014/7/23 14:00:00 [只看该作者]
