Foxtable(狐表) → 用户栏目 → 专家坐堂 → 带条件选择的下一条


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

主题：带条件选择的下一条
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：860 积分：5964 威望：0 精华：0 注册：2016/4/15 22:24:00 		带条件选择的下一条  发帖心情 Post By：2022/1/22 15:10:00 [只看该作者]

老师，帮我看看这个代码怎么写，带条件选择的查找第一行、下一行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目0122.foxdb


Dim sn As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim v As String = sn.text
。。。

With Tables("表A")
    .Position = .Position + 1
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

对("表A")根据条件筛选：http://www.foxtable.com/webhelp/topics/1058.htm

第一行、下一行代码不需要变
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：860 积分：5964 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2022/1/22 15:50:00 [只看该作者]

我这样写的绑定了列
第一行：
Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "户型 = '" & .Value & "'"
    End If
End With

Tables("表A").Position = 0

If Filter > "" Then
    Tables("表A").Filter = Filter
End If
下一行：
Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "户型 = '" & .Value & "'"
    End If
End With
With Tables("表A")
    .Position = .Position + 1
End With
If Filter > "" Then
    Tables("表A").Filter = Filter
End If

但我在窗口要实现同时显示本行和下一行，这个代码显示不了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/22 16:04:00 [只看该作者]

筛选代码另外放一个筛选按钮，不要放到第一行下一行里

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


加好友 发短信
等级：四尾狐 帖子：860 积分：5964 威望：0 精华：0 注册：2016/4/15 22:24:00 		好  发帖心情 Post By：2022/1/22 16:18:00 [只看该作者]

蓝老师，已单独加了一个按钮，请问如何在窗口同时显示当前选房人和下一个选房人，不知代码怎么修改，论坛我今天找了一天都没有找到

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


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/22 16:25:00 [只看该作者]

窗口控件绑定表的，只能一次显示一行的数据。

考虑不要做绑定。在窗口afterload事件取第一行的内容给第一套控件赋值，取第二行的内容给第二套控件赋值
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：860 积分：5964 威望：0 精华：0 注册：2016/4/15 22:24:00 		赋值  发帖心情 Post By：2022/1/22 16:45:00 [只看该作者]

我也是这么想的不能绑定控件，要用赋值的办法才行，可是怎么赋值却搞不懂，请老师帮忙解决

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


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

比如：
dim r as row =  tables(“表A”).rows(0)
e.form.controls(“textbox1”).text = r("第一列")

dim r2 as row =  tables(“表A”).rows(1)
e.form.controls(“textbox2”).text = r("第一列")
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：860 积分：5964 威望：0 精华：0 注册：2016/4/15 22:24:00 		涉及2行问题  发帖心情 Post By：2022/1/22 17:33:00 [只看该作者]

蓝老师，我水平很有限，刚才试了一下搞不定，这个代码又涉及很多条件叠加，顾此失彼，麻烦你抽空帮我看看
我取消绑定，将下列代码放在窗口事件里，没有用
Dim r As Row =  Tables("表A").rows(0)
e.form.controls("textbox1").text = r("选房人姓名")
e.form.controls("textbox2").text = r("选房顺序号")

Dim r2 As Row =  Tables("表A").rows(1)
e.form.controls("textbox3").text = r("选房人姓名")
e.form.controls("textbox4").text = r("选房顺序号")
[此贴子已经被作者于2022/1/22 17:45:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/22 17:50:00 [只看该作者]

下一个

With Tables("表A")
if .Position < .rows.count - 2
    .Position = .Position + 1
Dim r As Row =  Tables("表A").rows(.Position)
e.form.controls("textbox1").text = r("选房人姓名")
e.form.controls("textbox2").text = r("选房顺序号")

Dim r2 As Row =  Tables("表A").rows(.Position+1)
e.form.controls("textbox3").text = r("选房人姓名")
e.form.controls("textbox4").text = r("选房顺序号")
endif
End With
 回到顶部
总数 13 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.05566 秒, 5 次数据查询