主题：指定单元格出错

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

点击浏览该文件:问题1.foxdb

不知道错在哪里，在窗口中勾选CheckBox增加了3个TextBox，但是不能指定单元格位置，而且输入数据是都同时输入，搞不懂，请帮帮忙

一个TextBox指定一个单元格啊

 

Dim chk As WinForm.CheckBox
chk = Forms("窗口1").Controls("80")
If  chk.Checked = True
    Dim txt1 As WinForm.TextBox
    txt1 = e.Form.CreateControl("slge01", ControlTypeEnum.TextBox)
    txt1.Left = 300
    txt1.Top = 100
    txt1.Width = 77
    e.Form.AddControl(txt1)
    txt1.BindingField = "表A.表B.第三列"
    Tables("表A.表B").Position = 2
    Dim txt2 As WinForm.TextBox
    txt2 = e.Form.CreateControl("slge02", ControlTypeEnum.TextBox)
    txt2.Left = 300
    txt2.Top = 150
    txt2.Width = 77
    e.Form.AddControl(txt2)
    txt2.BindingField = "表A.表B.第三列"
    Tables("表A.表B").Position = 1
    Dim txt3 As WinForm.TextBox
    txt3 = e.Form.CreateControl("slge03", ControlTypeEnum.TextBox)
    txt3.Left = 300
    txt3.Top = 200
    txt3.Width = 77
    e.Form.AddControl(txt3)
    txt3.BindingField = "表A.表B.第三列"
    Tables("表A.表B").Position = 0
   
Else
    e.Form.Controls("slge01").Visible = False
    e.Form.Controls("slge02").Visible = False
    e.Form.Controls("slge03").Visible = False
End If

不知道哪里错了

一个勾选，指定三个单元格用临时TextBox填入，不能做到吗？