- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20760)
-- 发布时间：2012/6/19 8:43:00
-- 窗口问题
1.当表B，AA列和CCC列有数据时锁定？
2.表B，AA列有数据时，窗口中文本框不可以输入？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/6/19 9:05:00
--
If Tables("表B").compute("count(aa)")>0
Tables("表B").Cols("aa").AllowEdit = False
End If
-- 发布时间：2012/6/19 9:41:00
--
不是这样的，
1.表B，AA列有数列和CCC据时，锁定这一行
2.锁定的行，窗口中文本框不可以输入。
-- 发布时间：2012/6/19 10:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/6/19 10:11:00
--
狐爸爸，帮我在看看，窗口中的AA文本框是来自，窗口中的副表第一列双击上的。
双击副表第一列，AA文本框就是可以改动
-- 发布时间：2012/6/19 10:12:00
--
还是会被改动。没有锁定
-- 发布时间：2012/6/19 12:23:00
--
那有这样设计的，都是直接绑定的
-- 发布时间：2012/6/19 13:36:00
--
那你教教我吧，不会直接绑定。帮我那个例子改改
-- 发布时间：2012/6/20 8:38:00
--
帮我搞一下，AA文本框有内容时双击副表第一列无效
-- 发布时间：2012/6/20 10:02:00
--
你把窗口表的Click事件改为：
Dim t As Table=CurrentTable
Dim txt As WinForm.TextBox = Forms("窗口1").controls("textbox1")
If txt.value Is Nothing Then
txt.value = t.current(t.cols(t.colsel))
Forms("窗口1").Controls("textbox1").Select()
End If