刷新按钮的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 刷新按钮的问题

共有3506人关注过本帖树形打印复制链接主题：刷新按钮的问题

yangcin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00

刷新按钮的问题 发帖心情

Post By：2014/5/9 11:18:00 [显示全部帖子]

A用户输入数据，B用户刷新后，能够看到该条数据，但是B用户无法使用该数据。B用户推出系统后，重新登录，该条新增加数据可以使用。

数据表用的是SQLQuery表，刷新用的filter，load

yangcin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00

Post By：2014/5/9 11:33:00 [显示全部帖子]

我没表述明白：

1、表格用的是窗口+SQLquery方式

2、A编辑的数据保存后（B用户同时登录在线），B用户在另外一台电脑上，可以刷新得到这条数据

3、本来在SQLquery表上，写了双击代码，但这种情况下，双击代码不管用

4、除非B退出后重登陆，才能让双击代码正常使用，进行B的编辑

5、这个有点类似于工作流的概念。

yangcin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00

Post By：2014/5/9 15:00:00 [显示全部帖子]

If e.Table.Current Is Nothing Then '如果Current为Nothing

Return '则返回

End If

Dim wz As Integer

Dim dr As DataRow

dr = DataTables("快件列表").Find("[序号] = '" & e.Table.Current("序号") & "'")

If dr IsNot Nothing Then

wz = Tables("快件列表").FindRow(dr)

If wz >= 0 Then

Tables("快件列表").Position = wz

End If

yangcin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00

Post By：2014/5/9 15:59:00 [显示全部帖子]

以下是引用有点甜在2014-5-9 15:14:00的发言：

楼主，你直接这样找和定位是不行的。修改以后，快件列表并没有更新到最新数据的，你的快件列表需要重新加载新数据。

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("快件列表").Find("[序号] = '" & e.Table.Current("序号") & "'")
If dr Is Nothing Then
    DataTables("快件列表").LoadFilter = "[序号] = '" & e.Table.Current("序号") & "'"
    DataTables("快件列表").AppendLoad
End If

dr = DataTables("快件列表").Find("[序号] = '" & e.Table.Current("序号") & "'")
If dr IsNot Nothing Then
    wz = Tables("快件列表").FindRow(dr)
    If wz >= 0 Then
        Tables("快件列表").Position = wz
    End If
End If

这个也不行呢

yangcin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00

Post By：2014/5/10 10:11:00 [显示全部帖子]

这个连appendload都不能写
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20140510101543.jpg

下一主题 >> << 上一主题

主题：刷新按钮的问题