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


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

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


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：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

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


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：0 精华：0 注册：2016/4/15 22:24:00 		好  发帖心情 Post By：2022/1/22 16:18:00 [显示全部帖子]

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

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


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：0 精华：0 注册：2016/4/15 22:24:00 		赋值  发帖心情 Post By：2022/1/22 16:45:00 [显示全部帖子]

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

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


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：0 精华：0 注册：2016/4/15 22:24:00 		老师，还是有些问题  发帖心情 Post By：2022/1/22 19:21:00 [显示全部帖子]

老师，还是有些问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目0122.foxdb

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


加好友 发短信
等级：四尾狐 帖子：922 积分：6321 威望：0 精华：0 注册：2016/4/15 22:24:00 		终于解决了，谢谢蓝老师  发帖心情 Post By：2022/1/23 10:35:00 [显示全部帖子]

第一个代码：
With Tables("表A")
Tables("表A").Position = 0
If .Position = 0
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 = r2("选房人姓名")
e.form.controls("textbox4").text = r2("选房顺序号")
End If
End With

下一个代码：
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 = r2("选房人姓名")
        e.form.controls("textbox4").text = r2("选房顺序号")
    End If
End With
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 7 次数据查询