Foxtable(狐表)用户栏目专家坐堂 → 数据自动


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

主题:数据自动

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


加好友 发短信
等级:幼狐 帖子:127 积分:943 威望:0 精华:0 注册:2022/4/12 22:12:00
数据自动  发帖心情 Post By:2022/6/4 18:04:00 [只看该作者]

我设计了主界面独立停靠窗口,设置了一个姓名标签和图片浏览控件分别绑定的表,并填加了计划,实现了数据自动展示,代码如下,但是切换到人员表,计划同行执行。如何只实现在停靠窗口展示,而主表人员表不执行计划。
With Tables("人员表")
    If .Position = .Rows.Count - 1 Then
        .Position = 0
    Else
        .Position = .Position + 1
    End If
End With

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/6/5 7:03:00 [只看该作者]

没有看懂你的问题

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


加好友 发短信
等级:幼狐 帖子:127 积分:943 威望:0 精华:0 注册:2022/4/12 22:12:00
数据自动  发帖心情 Post By:2022/6/5 12:13:00 [只看该作者]

我设计了独立停靠窗口绑定在主界面表,设置了一个姓名标签和图片浏览控件分别绑定到人员表,并填加了计划,在独立窗口实现了数据自动展示,代码如下,
With Tables("人员表")
    If .Position = .Rows.Count - 1 Then
        .Position = 0
    Else
        .Position = .Position + 1
    End If
End With
但是在记录在两个窗口,即独立停靠窗口和人员表窗口同步执行。如何只实现在停靠窗口展示,而人员表窗口不执行计划。

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/5 20:53:00 [只看该作者]

停靠窗口的表格设置为副本

With Tables("人员表")
改为使用副本名称
With Tables("窗口1_table1")

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


加好友 发短信
等级:幼狐 帖子:127 积分:943 威望:0 精华:0 注册:2022/4/12 22:12:00
数据自动  发帖心情 Post By:2022/6/5 22:44:00 [只看该作者]

窗口里没有绑定表控件,只是姓名和图片两个控件,不知道怎么选副本,请指教,谢谢。

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/5 22:53:00 [只看该作者]

那就看不懂了。请截图说明

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


加好友 发短信
等级:幼狐 帖子:127 积分:943 威望:0 精华:0 注册:2022/4/12 22:12:00
数据自动  发帖心情 Post By:2022/6/5 23:32:00 [只看该作者]




图片点击可在新窗口打开查看

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


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

把人员表窗口改为副本

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


加好友 发短信
等级:幼狐 帖子:127 积分:943 威望:0 精华:0 注册:2022/4/12 22:12:00
数据自动  发帖心情 Post By:2022/6/6 22:15:00 [只看该作者]

我在数据展示窗口加一个表控件,设计为副本,出现数据展示_Table1,将两个控件绑定到这个副表,并在计划里修改为,弹出错误不存在数据展示_Table这个表。
If  MainTable.Name = "主界面" Then
    With Tables("数据展示_Table1")
        If .Position = .Rows.Count - 1 Then
            .Position = 0
        Else
            .Position = .Position + 1
        End If
    End With
End If

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


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/6 22:29:00 [只看该作者]

窗口没有打开,或者窗口名称,控件名称错误

 回到顶部
总数 11 1 2 下一页