Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]代码筛选问题求助


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

主题：[求助]代码筛选问题求助
帅哥哟，离线，有人找我吗？
good131577
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		[求助]代码筛选问题求助  发帖心情 Post By：2014/7/22 17:09:00 [显示全部帖子]

请教问题~ 
我是写在存款表的 CurrentChanged 事件里面：
If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
If Forms("存款管理").Opened Then
    Forms("存款管理").Controls("社员ID").value=e.Table.Current("社员ID")
    Forms("存款管理").Controls("姓名").value=e.Table.Current("对方户名")
End If

存款管理窗口 如果当前行改变了 底下的对应两个文本控件的值 也相应发生变化...为什么有的行会变化  有的话不会发生变化？？ 
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

这是什么原因呢？？表格过滤条件 窗口加载的时候 我设置为空了
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		工程上传~  发帖心情 Post By：2014/7/22 17:51:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单机版_- 改0722.rar

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


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		~  发帖心情 Post By：2014/7/22 17:52:00 [显示全部帖子]

开发版的~
数据库链接可能需要改下~  登录密码chsheng
我是点击存款表一行 底下的两个控件自动变换成 当前行的社员ID 和姓名值  同时旁边出现一个停靠窗口（选择存款会员窗口）  筛选出跟当前行有关的社员基本信息 可以使用键盘上下控制 然后按确定 把右边停靠窗口对应的那一行的社员ID 赋值给 左边存款表的 社员ID列  （因为左边的存款表社员ID有些值是空的）

后面加了选择存款会员窗口  代码写在存款表的 CurrentChanged 事件里面  好像弹出窗口都有问题了~麻烦看下
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		工程源码上传  发帖心情 Post By：2014/7/22 17:53:00 [显示全部帖子]

开发版的~
数据库链接可能需要改下~  登录密码chsheng
我是点击存款表一行 底下的两个控件自动变换成 当前行的社员ID 和姓名值  同时旁边出现一个停靠窗口（选择存款会员窗口）  筛选出跟当前行有关的社员基本信息 可以使用键盘上下控制 然后按确定 把右边停靠窗口对应的那一行的社员ID 赋值给 左边存款表的 社员ID列  （因为左边的存款表社员ID有些值是空的）

后面加了选择存款会员窗口  代码写在存款表的 CurrentChanged 事件里面  好像弹出窗口都有问题了~麻烦看下
图片点击可在新窗口打开查看此主题相关图片如下：33.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:单机版_- 改0722.rar
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		问题~  发帖心情 Post By：2014/7/22 18:26:00 [显示全部帖子]

为什么我一换行 就卡死了。。。。
是触发CurrentChanged事件  代码如下：  （选择存款会员窗口我是设置的独立窗口）
If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
图片点击可在新窗口打开查看此主题相关图片如下：11.png
图片点击可在新窗口打开查看
If Forms("存款管理").Opened Then
    Forms("存款管理").Controls("社员ID").Text=e.Table.Current("社员ID")
    Forms("存款管理").Controls("姓名").value=e.Table.Current("对方户名")
    If Forms("选择存款会员").Opened =False Then
        Forms("选择存款会员").Open
    End If
    '窗口打开 筛选
    Dim txt As String = e.Table.Current("对方户名")
    Dim tbl As Table = Tables("社员基本信息")
    If txt Is Nothing Then
        tbl.Filter = ""
    Else
        txt = "'*" & txt & "*'"
        tbl.Filter = "社员信息_社员姓名 Like " & txt & " Or 社员信息_常用联系人 Like " & txt & " Or 社员信息_付款人 Like " & txt
    End If
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		~  发帖心情 Post By：2014/7/22 18:27:00 [显示全部帖子]

开始有姓名的 选中那一行 控件的值 也不对~ 
现在好像又好了 不知道什么问题  现在我选中一行 想弹出窗口 好像就卡死掉了
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		~  发帖心情 Post By：2014/7/22 18:30:00 [显示全部帖子]

显示ID 和显示姓名的 控件 ValueChanged 里面的事件代码 我现在是都清空掉了~
都换到 CurrentChanged事件里面来做了
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		请教  发帖心情 Post By：2014/7/22 20:08:00 [显示全部帖子]

我测试了下 好像是红色代码问题  窗口会一直打开 我关掉又会重新打开？这是为什么呢？

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
If Forms("存款管理").Opened Then
    Forms("存款管理").Controls("社员ID").Text=e.Table.Current("社员ID")
    Forms("存款管理").Controls("姓名").value=e.Table.Current("对方户名")
    If Forms("选择存款会员").Opened =False Then
        Forms("选择存款会员").Open
    End If
    '窗口打开 筛选
    'Dim txt As String = e.Table.Current("对方户名")
    'Dim tbl As Table = Tables("社员基本信息")
    'If txt Is Nothing Then
    '    tbl.Filter = ""
   ' Else
    '    txt = "'*" & txt & "*'"
    '    tbl.Filter = "社员信息_社员姓名 Like " & txt & " Or 社员信息_常用联系人 Like " & txt & " Or 社员信息_付款人 Like " & txt
   ' End If
    
End If
我这段代码是写在CurrentChanged 事件里面的~  选中一行 我是希望弹出选择存款会员窗口 
我关闭掉选择存款会员窗口 当前行我并没有改变啊？应该不会在重复执行CurrentChanged事件吧  不应该在一直弹出窗口啊？
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		不行~  发帖心情 Post By：2014/7/22 20:38:00 [显示全部帖子]

好像还是不行~ 我关掉选择会员窗口 又会重新在打开~  关掉就会自动在打开  这是什么缘故呢~！！
选择会员窗口我是设置的独立窗口！
图片点击可在新窗口打开查看此主题相关图片如下：333.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
good131577
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00 		貌似还是有问题~  发帖心情 Post By：2014/7/22 20:49:00 [显示全部帖子]

我就是把CurrentChanged代码 剪切过去的~
拷贝到PositionChanged事件里面
里面代码是这样的：
If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
If Forms("存款管理").Opened Then
    Forms("存款管理").Controls("社员ID").Text=e.Table.Current("社员ID")
    Forms("存款管理").Controls("姓名").value=e.Table.Current("对方户名")
    If Forms("选择存款会员").Opened =False Then
        Forms("选择存款会员").Open
    End If
    '窗口打开 筛选
    'Dim txt As String = e.Table.Current("对方户名")
    'Dim tbl As Table = Tables("社员基本信息")
    'If txt Is Nothing Then
    '    tbl.Filter = ""
   ' Else
    '    txt = "'*" & txt & "*'"
    '    tbl.Filter = "社员信息_社员姓名 Like " & txt & " Or 社员信息_常用联系人 Like " & txt & " Or 社员信息_付款人 Like " & txt
   ' End If
    
End If

要上传工程吗？？
图片点击可在新窗口打开查看此主题相关图片如下：6.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：7.png
图片点击可在新窗口打开查看
 回到顶部
总数 15 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.09375 秒, 7 次数据查询