Foxtable(狐表)用户栏目专家坐堂 → 关联表与主表绑定录入窗口


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

主题:关联表与主表绑定录入窗口

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


加好友 发短信
等级:幼狐 帖子:108 积分:671 威望:0 精华:0 注册:2021/9/24 17:07:00
  发帖心情 Post By:2021/10/13 16:47:00 [只看该作者]

就是我到时候能不能用这个方法添加所有文本框

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


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/13 16:52:00 [只看该作者]

既然可以改一个文本框的绑定,肯定也可以改其它的。这种问题自行试试不就知道了

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


加好友 发短信
等级:幼狐 帖子:108 积分:671 威望:0 精华:0 注册:2021/9/24 17:07:00
  发帖心情 Post By:2021/10/13 16:55:00 [只看该作者]

If CurrentTable.Name = "Table_3.Table_7"  AndAlso Forms("录入窗口").Opened Then
    Dim zt As WinForm.TextBox = Forms("录入窗口").PictureViewer("PictureViewer1")
    zt.BindingField = Nothing
    zt.BindingField = "Table_3.Table_7.图片"
End  If 
PictureViewer 应该怎么改

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


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/13 17:10:00 [只看该作者]

Dim zt As WinForm.PictureViewer = Forms("录入窗口").controls("PictureViewer1")
[此贴子已经被作者于2021/10/13 17:10:12编辑过]

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


加好友 发短信
等级:幼狐 帖子:108 积分:671 威望:0 精华:0 注册:2021/9/24 17:07:00
  发帖心情 Post By:2021/10/14 9:29:00 [只看该作者]

怎么把table_3.table_7的单号列与状态列在录入窗口的时候变成红色

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


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/14 9:47:00 [只看该作者]

表格红色,还是控件红色

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


加好友 发短信
等级:幼狐 帖子:108 积分:671 威望:0 精华:0 注册:2021/9/24 17:07:00
  发帖心情 Post By:2021/10/14 9:50:00 [只看该作者]

控件

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


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/14 9:52:00 [只看该作者]

到窗口设计设置控件背景色即可。使用代码参考:http://www.foxtable.com/webhelp/topics/0720.htm

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


加好友 发短信
等级:幼狐 帖子:108 积分:671 威望:0 精华:0 注册:2021/9/24 17:07:00
  发帖心情 Post By:2021/10/14 9:59:00 [只看该作者]

If CurrentTable.Name = "Table_3.Table_7"  AndAlso Forms("录入窗口").Opened Then
    Dim zt As WinForm.TextBox = Forms("录入窗口").Controls("状态")
    zt.BindingField = Nothing
    zt.BindingField = "Table_3.Table_7.状态"
    
    
End  If
 如果我想这里加呢 老师

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


加好友 发短信
等级:幼狐 帖子:108 积分:671 威望:0 精华:0 注册:2021/9/24 17:07:00
  发帖心情 Post By:2021/10/14 9:59:00 [只看该作者]

字变成红色,文本框只读
[此贴子已经被作者于2021/10/14 9:59:42编辑过]

 回到顶部
总数 31 上一页 1 2 3 4 下一页