关于单元格的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于单元格的问题

共有1922人关注过本帖树形打印复制链接主题：关于单元格的问题

hongyefor

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：524 积分：3676 威望：0 精华：0 注册：2012/7/27 10:28:00

关于单元格的问题 发帖心情

Post By：2015/7/6 13:06:00 [只看该作者]

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行数据中，可是试了老半天不知道怎么不行呢？