Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]行加载的问题


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

主题：[求助]行加载的问题
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：417 积分：4506 威望：0 精华：0 注册：2015/3/21 14:25:00 		[求助]行加载的问题  发帖心情 Post By：2020/3/9 20:42:00 [只看该作者]

窗口1绑定总表的两个副本，想实现双击副本1的某行时，该行在副本中被移除，而加载到副本2中

请老师指导代码

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107119 积分：544832 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/9 21:19:00 [只看该作者]

Table1双击事件

Dim Filter As String = "_Identify = " & e.Row("_Identify")
Dim Filter2 As String = "_Identify <> " & e.Row("_Identify")

If e.Table.Filter > "" Then
    e.Table.Filter = e.Table.Filter & " and " & Filter2
Else
    e.Table.Filter = Filter2
End If

If Tables("窗口1_Table2").Filter= "False" Then
    Tables("窗口1_Table2").Filter=filter
Else
    Tables("窗口1_Table2").Filter= Tables("窗口1_Table2").Filter & " or " & filter
End If

e.Cancel = True
 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：417 积分：4506 威望：0 精华：0 注册：2015/3/21 14:25:00 		  发帖心情 Post By：2020/3/9 21:50:00 [只看该作者]

谢老师，第一个问题用您的代码已解决了
但有另一个问题，，就是成功的从副本1加载到副本2的行，想再从副本2中返加载回副本1，同时副本2移除
我将代码中的table2全部改为table1，好像不行，有的移回去后，副本1、2就都有这条信息了，有的行根本没反应
所以请老师再指导
[此贴子已经被作者于2020/3/9 21:50:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

换种方式，添加1个集合类型的全局变量。table1双击的时候把id加入集合，table2双击的时候把id从集合移除

然后table1筛选的时候排除集合里的id：Tables("窗口1_Table1").Filter ="_Identify not in (" & string.join(",",集合变量.toarray) & ")"

table2筛选取集合的id：Tables("窗口1_Table2").Filter ="_Identify in (" & string.join(",",集合变量.toarray) & ")"
 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：417 积分：4506 威望：0 精华：0 注册：2015/3/21 14:25:00 		  发帖心情 Post By：2020/3/10 20:48:00 [只看该作者]

弄了一下午，没整明白，还请老师帮贴代码吧（感觉太麻烦老师了）

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

窗口afterload
vars("ids") = new List(of string)

table1双击事件
Dim id As Integer = e.Row("_Identify")
If vars("ids").contains(id) = False Then
    vars("ids").add(id)
End If
Dim Filter As String = "_Identify not in (" & String.join(",",vars("ids")..toarray) & ")"
Dim Filter2 As String = "_Identify in (" & String.join(",",vars("ids")..toarray) & ")"

e.Table.Filter = Filter 
Tables("窗口1_Table2").Filter = Filter2 
e.Cancel = True

table2双击事件
Dim id As Integer = e.Row("_Identify")
If vars("ids").contains(id) Then
    vars("ids").remove(id)
End If
Dim Filter As String = "_Identify not in (" & String.join(",",vars("ids")..toarray) & ")"
Dim Filter2 As String = "_Identify in (" & String.join(",",vars("ids")..toarray) & ")"

e.Table.Filter = Filter2 
Tables("窗口1_Table1").Filter = Filter
e.Cancel = True
 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：417 积分：4506 威望：0 精华：0 注册：2015/3/21 14:25:00 		[求助]加载问题  发帖心情 Post By：2020/3/11 18:08:00 [只看该作者]

老师，双击后出现了错误提示
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：417 积分：4506 威望：0 精华：0 注册：2015/3/21 14:25:00 		  发帖心情 Post By：2020/3/12 6:40:00 [只看该作者]

实在不好意思，麻烦老师帮看一下

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107119 积分：544832 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/12 12:02:00 [只看该作者]

table1双击事件

Dim id As String = e.Row("_Identify")
If vars("ids").contains(id) = False Then
    vars("ids").add(id)
End If
Dim lst As List(of String) = vars("ids")
Dim Filter As String = "_Identify not in (" & String.join(",",lst.ToArray) & ")"
Dim Filter2 As String = "_Identify in (" & String.join(",",lst.ToArray) & ")"

e.Table.Filter = Filter 
Tables("窗口1_Table2").Filter = Filter2 
e.Cancel = True

table2双击事件
Dim id As String = e.Row("_Identify")
If vars("ids").contains(id) Then
    vars("ids").remove(id)
End If
Dim lst As List(of String) = vars("ids")
If lst .count > 0 Then
    Dim Filter As String = "_Identify not in (" & String.join(",",lst .ToArray) & ")"
    Dim Filter2 As String = "_Identify in (" & String.join(",",lst .ToArray) & ")"

    e.Table.Filter = Filter2
    Tables("窗口1_Table1").Filter = Filter
Else
    e.Table.Filter = "false"
    Tables("窗口1_Table1").Filter = ""
End If
e.Cancel = True
 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：417 积分：4506 威望：0 精华：0 注册：2015/3/21 14:25:00 		感谢  发帖心情 Post By：2020/3/12 12:15:00 [只看该作者]

完美实现
感谢老师不厌其烦的指导
为你们的产品点赞
为你们的服务点赞
再次感谢
 回到顶部
总数 14 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.05469 秒, 6 次数据查询