Foxtable(狐表)用户栏目专家坐堂 → 窗口中表及记录控件同步


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

主题:窗口中表及记录控件同步

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
窗口中表及记录控件同步  发帖心情 Post By:2018/3/7 21:36:00 [只看该作者]

请问:窗体中,表空间与另一个记录同步如何 实现,下述代码报错,是什么原因。
Dim txt As String = form("计量到期及台帐").Table1 "校准编号"
Dim tbl As Table = Tables("计量台帐")
    txt = "'%" & txt & "%'"
    tbl.Filter = "校准编号 Like " & txt & " Or 校准名称 Like " & txt


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/7 22:07:00 [只看该作者]

Dim txt As String = forms("计量到期及台帐").controls("Table1").Table.Current("校准编号")
msgbox(txt)
Dim tbl As Table = Tables("计量台帐")
txt = "'%" & txt & "%'"
tbl.Filter = "校准编号 Like " & txt & " Or 校准名称 Like " & txt

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2018/3/8 21:38:00 [只看该作者]

将这个代码放到了窗体中,可是执行中没有反应,在命令窗口发现报错。
请费心。

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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2018/3/8 21:39:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名图片.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 22:13:00 [只看该作者]

1、这个代码弹出什么?msgbox(txt)

 

2、请上传具体foxtable项目说明你要做的功能。


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


加好友 发短信
等级:小狐 帖子:357 积分:3418 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2018/3/9 23:31:00 [只看该作者]

信息见附件。
图片点击可在新窗口打开查看此主题相关图片如下:未命名图片.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112373 积分:572127 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/10 8:46:00 [只看该作者]

涉及到代码的要把代码文字也贴出来,方便别人修改

使用到current的地方都需要判断一下是否为空值

If Tables("订单").Current IsNot Nothing Then
    Output.Show(
Tables("订单").Current("客户"
))
End If


 回到顶部