Dim chk As WinForm.CheckBox
chk = Forms("窗口3").Controls("T80")
If chk.Checked = True
Dim txt1 As WinForm.TextBox
txt1 = e.Form.CreateControl("TextBox1", ControlTypeEnum.TextBox)
txt1.Left = 100
txt1.Top = 100
e.Form.AddControl(txt1)
txt1.BindingField = Tables("表A.表B")(2,"T80")
Else
e.Form.Controls("TextBox1").Visible = False
End If
这个代码的本意是如果窗口3的“T80”复选框可见,勾选在窗口3的“T80”复选框后建立一个名为"TextBox1"的文本框并且定位到Tables"表A.表B"表“T80”列的第3行数据中,可是试了老半天不知道怎么不行呢?