- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 指定单元格出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72240)
-- 发布时间：2015/7/26 17:49:00
-- 指定单元格出错
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题1.foxdb |
不知道错在哪里，在窗口中勾选CheckBox增加了3个TextBox，但是不能指定单元格位置，而且输入数据是都同时输入，搞不懂，请帮帮忙
-- 发布时间：2015/7/26 17:52:00
--
那你想怎样指定？
-- 发布时间：2015/7/26 17:54:00
--
一个TextBox指定一个单元格啊
-- 发布时间：2015/7/26 17:54:00
--
绑定是无法做到的啊。
-- 发布时间：2015/7/26 17:54:00
--
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
-- 发布时间：2015/7/26 17:55:00
--
不知道哪里错了
-- 发布时间：2015/7/26 17:55:00
--
做不到啊
-- 发布时间：2015/7/26 17:57:00
--
一个勾选，指定三个单元格用临时TextBox填入，不能做到吗？
-- 发布时间：2015/7/26 18:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:问题1.foxdb |