Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 主窗口功能实现


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

主题：[求助] 主窗口功能实现
帅哥哟，离线，有人找我吗？
大红袍
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/3 14:16:00 [只看该作者]

Dim dr As Row = Forms("设备端口主窗口").Controls("Table1").Table.Current
msgbox(dr.DataRow.OriginalValue("业务名称"))

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/3 14:49:00 [只看该作者]

表的Click中写有如下命令：
 Dim t As Table = Forms("设备台帐主窗口").Controls("Table2").Table
    With Tables("设备端口业务清单表") 
If .Current("业务名称") = "" Then
            t.Filter = "网元名称 is null "
Else            
            t.Filter = " 业务名称 Like '%" & .Current("业务名称") & "%'"
            t.Sort= "电路序号,机房名称 DESC"                 
        End If        
    End With

一、如果我的【业务名称】列中的内容存在以下几种情况，就无法实现筛选；我的命令该怎么修改？

1、杨村镇机房（MA5680T[1]）-惠北通信楼机房（MA60_1）

2、移民村机房（程控网管S3328）-惠北通信楼机房（**）

3、
图片点击可在新窗口打开查看此主题相关图片如下：360截图20160303144847784.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/3 15:19:00 [只看该作者]

Dim flt As String = "1=2"
For Each s As String In e.Row("业务名称").replace(chr(10), "").split(chr(13))
    flt &= " or 业务名称 like '%" & s & "%'"
next
e.Table.filter = flt

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/3 15:56:00 [只看该作者]

 下面红色部分命令怎样嵌入到上面的命令中去？弄了半天还是不得要领
Dim t As Table = Forms("设备台帐主窗口").Controls("Table2").Table
    With Tables("设备端口业务清单表") 
If .Current("业务名称") = "" Then
            t.Filter = "网元名称 is null "
Else            
            t.Filter = " 业务名称 Like '%" & .Current("业务名称") & "%'"
            t.Sort= "电路序号,机房名称 DESC"                 
        End If        
    End With


Dim flt As String = "1=2"
For Each s As String In e.Row("业务名称").replace(chr(10), "").split(chr(13))
    flt &= " or 业务名称 like '%" & s & "%'"
next
e.Table.filter = flt
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/3 15:58:00 [只看该作者]

Dim flt As String = "1=2"
For Each s As String In Tables("设备端口业务清单表").Current("业务名称").replace(chr(10), "").split(chr(13))
    flt &= " or 业务名称 like '%" & s & "%'"
next
Forms("设备台帐主窗口").Controls("Table2").Table.filter = flt


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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/3 16:31:00 [只看该作者]

我有一个窗口中，有 Table1 和 Table2 两个表，这两个表所绑定的表都是【设备端口业务清单表】；其中 Table2设置为副本。

我在【设备端口业务清单表】的DoubleClick 和 右键快捷菜单中写有命令；

如果我该如何做才能实现当在 Table1 中进行操作时、这些命令有效；而当在 Table2 中进行操作时、这些命令就不起效果。

比如我在表的DoubleClick 中写有命令 
 
Forms("修改端口应用窗口").Open

如果我在 Table1 中双击左键就打开窗口、如果我在 Table2 中双击左键就不起作用。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/3 16:34:00 [只看该作者]

用表名区分

 

If e.Table.Name = "窗口1_Table1" Then

 

ElseIf e.Table.Name = "窗口2_Table2" Then

 

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/3 17:14:00 [只看该作者]

命令如下：在 【设备台帐主窗口_Table1】 中双击左键没有反应，无法打开 【修改端口应用窗口】 窗口

If e.Table.Name = "设备台帐主窗口_Table1" Then
 Forms("修改端口应用窗口").Open
Else
 
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/3 17:15:00 [只看该作者]

msgbox看一下表名是什么。
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/3/3 17:35:00 [只看该作者]

Table2 是副本，以下命令在Table2中就可以打开【修改端口应用窗口】
If e.Table.Name = "设备台帐主窗口_Table2" Then
 Forms("修改端口应用窗口").Open
Else
End If

Table1 不是副本，以下命令在Table1中就无法打开【修改端口应用窗口】
If e.Table.Name = "设备台帐主窗口_Table1" Then
 Forms("修改端口应用窗口").Open
Else
End If
[此贴子已经被作者于2016/3/3 17:35:16编辑过]
 回到顶部
总数 45 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询