- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码筛选问题求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54141)
-- 发布时间：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
此主题相关图片如下：1.png此主题相关图片如下：2.png这是什么原因呢？？表格过滤条件 窗口加载的时候 我设置为空了
-- 发布时间：2014/7/22 17:15:00
--
呃，代码应该没有问题，可能是和别的代码冲突了。
具体做个例子发上来看看。
-- 发布时间：2014/7/22 17:16:00
--
你控件绑定了列
就要直接为当前行的列赋值,为控件赋值是无效的
-- 发布时间：2014/7/22 17:17:00
--
http://www.foxtable.com/help/topics/2436.htm
-- 发布时间：2014/7/22 17:31:00
--
上个例子看看
[此贴子已经被作者于2014-7-22 17:31:53编辑过]
-- 发布时间：2014/7/22 17:51:00
-- 工程上传~
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单机版_- 改0722.rar |
此主题相关图片如下：33.png
-- 发布时间：2014/7/22 17:52:00
-- ~
开发版的~
数据库链接可能需要改下~ 登录密码chsheng我是点击存款表一行 底下的两个控件自动变换成 当前行的社员ID 和姓名值 同时旁边出现一个停靠窗口（选择存款会员窗口） 筛选出跟当前行有关的社员基本信息 可以使用键盘上下控制 然后按确定 把右边停靠窗口对应的那一行的社员ID 赋值给 左边存款表的 社员ID列 （因为左边的存款表社员ID有些值是空的）
后面加了选择存款会员窗口 代码写在存款表的 CurrentChanged 事件里面 好像弹出窗口都有问题了~麻烦看下
-- 发布时间：2014/7/22 17:53:00
-- 工程源码上传
开发版的~
数据库链接可能需要改下~ 登录密码chsheng我是点击存款表一行 底下的两个控件自动变换成 当前行的社员ID 和姓名值 同时旁边出现一个停靠窗口（选择存款会员窗口） 筛选出跟当前行有关的社员基本信息 可以使用键盘上下控制 然后按确定 把右边停靠窗口对应的那一行的社员ID 赋值给 左边存款表的 社员ID列 （因为左边的存款表社员ID有些值是空的）
后面加了选择存款会员窗口 代码写在存款表的 CurrentChanged 事件里面 好像弹出窗口都有问题了~麻烦看下
此主题相关图片如下：33.png
此主题相关图片如下：33.png| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:单机版_- 改0722.rar |
-- 发布时间：2014/7/22 18:00:00
--
因为你那一行根本就没有姓名
-- 发布时间：2014/7/22 18:05: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