Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 表间关联关系取消命令


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

主题：[求助] 表间关联关系取消命令
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助] 表间关联关系取消命令  发帖心情 Post By：2014/7/6 22:28:00 [显示全部帖子]

我在窗口的AfterLoad 和表的PositionChanged中写有以下命令、来实现两个表间的关联；但是如果我希望设置一个按钮、按下该按钮后能够取消该关联关系并确保与之关联的表能够自动显示出所有数据。我的按钮该写怎样的命令？

Dim t As Table = Tables("机房消防器材登记表主窗口_Table2")
With Tables("机房消防器材登记表")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "机房名称 = '" & .Current("机房名称") & "'"
        't.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备_设备名称 = '" & .Current("设备名称") & "'"
   End If
    
End With

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/6 22:54:00 [显示全部帖子]

做了，好像与之关联的表内容会停留在最后一次的显示状态；没有把整个表的内容显示出来。加了加载和取消筛选命令都不行

If vars("消防关联") = False Then

Dim t As Table = Tables("机房消防器材登记表主窗口_Table2")
With Tables("机房消防器材登记表")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "机房名称 = '" & .Current("机房名称") & "'"
        't.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备_设备名称 = '" & .Current("设备名称") & "'"
   End If
    
End With

End If



按钮
vars("消防关联") = True

DataTables.Load("机房消防器材清单表")

Tables("机房消防器材清单表").Filter = ""
[此贴子已经被作者于2014-7-6 22:56:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/6 23:02:00 [显示全部帖子]

OK啦，谢谢！！！


还有一个命令帮我看一下该怎么改；我想说：如果 “区域” 和 “机房名称” 两个框的内容都为空的话、那么、、、、

If e.Form.Controls("区域") = "" And e.Form.Controls("机房名称") = "" Then

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/6 23:14:00 [显示全部帖子]

谢谢！！

看看为什么当关联列表中没有关联数据时、表会挪到后面去（看右边表下面的滚动条位置的变化），就是点击回有数据的行时、还是保留在后面


图片点击可在新窗口打开查看此主题相关图片如下：360截图20140706231036437.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140706231049390.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140706231124203.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-7-6 23:14:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/7 9:41:00 [显示全部帖子]

这个代码应该放在哪？我放在好几个地方都不行；放在左表的PositionChanged中 好像就一直显示右表的右边的而不是我要的显示左边的

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/7 13:31:00 [显示全部帖子]

以下是引用有点甜在2014-7-6 22:58:00的发言：

 按钮代码

 

vars("消防关联") = True
Dim t As Table = Tables("机房消防器材登记表主窗口_Table2")
t.Filter = ""

取消关联后，我有一个按钮写着以下命令，但打开录入窗口后、光标一直停留在第一行并没有移动到新增行上，为什么？ 
CurrentTable.AddNew() 
Forms("机房消防器材清单表录入窗口").Open() 
 
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140707133028328.jpg
图片点击可在新窗口打开查看

如上图，明明是新增了行14、但是光标还是处在第一行位置
[此贴子已经被作者于2014-7-7 15:45:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/7 16:15:00 [显示全部帖子]

以下是引用有点甜在2014-7-6 22:58:00的发言：

 按钮代码

 

vars("消防关联") = True
Dim t As Table = Tables("机房消防器材登记表主窗口_Table2")
t.Filter = ""

取消关联后，我有一个按钮写着以下命令，但打开录入窗口后、光标一直停留在第一行并没有移动到新增行上，为什么？ 
CurrentTable.AddNew() 
Forms("机房消防器材清单表录入窗口").Open() 
 
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140707133028328.jpg
图片点击可在新窗口打开查看

如上图，明明是新增了行14、但是光标还是处在第一行位置
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/7 16:39:00 [显示全部帖子]

因为我的这个窗口表是关联表、必须做为副本；那我该怎么做才好呢？

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/7 17:03:00 [显示全部帖子]

这样新增行后、光标并没有移动到新增的行上

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2014/7/7 17:23:00 [显示全部帖子]

在新增按钮中写入；光标还是没移动到新增行上

Tables("机房消防器材清单表").AddNew()

Tables("机房消防器材清单表").Position=Tables("机房消防器材清单表").Rows.count-1

下图为新增一行后的效果：行3为红色表示是新增的行、但是光标还在第一行位置。


图片点击可在新窗口打开查看此主题相关图片如下：360截图20140707172113625.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.05859 秒, 5 次数据查询