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


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

主题：刷新按钮的问题
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/5/9 11:21:00 [只看该作者]

SQLQuery 是无法保存修改的.

要用SQLTABLE
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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、这个有点类似于工作流的概念。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 问题是：双击代码不能使用？

 

 这个得看你代码是怎么写的了，看看逻辑上有没有错误。

 

 或者上传一个例子，贴出你的代码。
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/5/9 15:01:00 [只看该作者]

你这个代码,和刷新数据有何关系?

刷新数据直接在双击事件 e.row.datarow.laod 就行了
[此贴子已经被作者于2014-5-9 15:04:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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



这个也不行呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/5/9 16:04: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

    msgbox(DataTables("快件列表").datarows.count & "   " & Tables("快件列表").Rows.count)
    DataTables("快件列表").LoadFilter = "[序号] = '" & e.Table.Current("序号") & "'"
    DataTables("快件列表").AppendLoad

    msgbox(DataTables("快件列表").datarows.count & "   " & Tables("快件列表").rows.count)
End If

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

 

msgbox(dr is nothing)


If dr IsNot Nothing Then
    wz = Tables("快件列表").FindRow(dr)
    If wz >= 0 Then
        Tables("快件列表").Position = wz
    End If
End If

[此贴子已经被作者于2014-5-9 16:04:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangcin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：56 积分：488 威望：0 精华：0 注册：2013/10/25 12:17:00 		  发帖心情 Post By：2014/5/10 10:11:00 [只看该作者]

这个连appendload都不能写
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140510101543.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询