Foxtable(狐表)用户栏目专家坐堂 → 窗口问题


  共有7617人关注过本帖树形打印复制链接

主题:窗口问题

帅哥哟,离线,有人找我吗?
cy2025
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:476 威望:0 精华:0 注册:2012/4/18 16:56:00
窗口问题  发帖心情 Post By:2012/6/19 8:43:00 [只看该作者]

1.当表B,AA列和CCC列有数据时锁定?

2.表B,AA列有数据时,窗口中文本框不可以输入?

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/6/19 9:05:00 [只看该作者]

If Tables("表B").compute("count(aa)")>0

   Tables("表B").Cols("aa").AllowEdit = False  

End If

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
cy2025
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:476 威望:0 精华:0 注册:2012/4/18 16:56:00
  发帖心情 Post By:2012/6/19 9:41:00 [只看该作者]

不是这样的,

1.表B,AA列有数列和CCC据时,锁定这一行

2.锁定的行,窗口中文本框不可以输入。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/19 10:00:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
cy2025
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:476 威望:0 精华:0 注册:2012/4/18 16:56:00
  发帖心情 Post By:2012/6/19 10:11:00 [只看该作者]

狐爸爸,帮我在看看,窗口中的AA文本框是来自,窗口中的副表第一列双击上的。

双击副表第一列,AA文本框就是可以改动


 回到顶部
帅哥哟,离线,有人找我吗?
cy2025
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:476 威望:0 精华:0 注册:2012/4/18 16:56:00
  发帖心情 Post By:2012/6/19 10:12:00 [只看该作者]

还是会被改动。没有锁定


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/19 12:23:00 [只看该作者]

那有这样设计的,都是直接绑定的


 回到顶部
帅哥哟,离线,有人找我吗?
cy2025
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:476 威望:0 精华:0 注册:2012/4/18 16:56:00
  发帖心情 Post By:2012/6/19 13:36:00 [只看该作者]

那你教教我吧,不会直接绑定。帮我那个例子改改


 回到顶部
帅哥哟,离线,有人找我吗?
cy2025
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:476 威望:0 精华:0 注册:2012/4/18 16:56:00
  发帖心情 Post By:2012/6/20 8:38:00 [只看该作者]

帮我搞一下,AA文本框有内容时双击副表第一列无效

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部