Foxtable(狐表)用户栏目专家坐堂 → [求助]同步指定关联行审批


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

主题:[求助]同步指定关联行审批

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/12 15:13:00 [显示全部帖子]

表名改成关联表,如

 

Tables("工程技术参数")

 

改成

 

Tables("工程合同基础数据.工程技术参数")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 10:49:00 [显示全部帖子]

你选择的是哪个表的内容?根据什么修改主表的内容?

 

做个具体的实例发上来说明。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 11:15:00 [显示全部帖子]

是不是又是你的表名写错了?你要写成关联表的表名。

 

或者贴出你提示的判断代码。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 11:39:00 [显示全部帖子]

这个意思?

 

 

If e.Col.Name = "成本计划_充盈系数" Then
    If e.row("采购名称") <> "商品混凝土" And e.Row("成本计划_充盈系数") <> Nothing Then '判断是否不符合验证要求
        MessageBox.Show("只有商品混凝土才能录入充盈系数.请核实数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) '提示用户
        e.Cancel = True '则禁止退出编辑模式
    End If
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 12:15:00 [显示全部帖子]

以下是引用沪上游客在2017/12/13 12:05:00的发言:
谢谢!这样在这个窗口中可以了。
想问一下,是不是窗口表是由父表关联的表,是不是达不到Table之行位置联动

 

一样可以联动,代码写到主表currentChanged事件,如代码

 

If e.Table.name = "工程合同基础数据.工程技术参数" Then  
    Dim wz As Integer = Tables("表A").FindRow("某列 = '" & e.table.current("某列") & "'")
    If wz >=0 Then
        Tables("表A").Position = wz
    End If
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 12:22:00 [显示全部帖子]

窗口afterLoad事件

 

Tables("某表").Filter = "1=2"


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 14:08:00 [显示全部帖子]

currentChanged事件,最前面加上代码

 

If e.Table.Current Is Nothing Then Return


 回到顶部