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


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

主题:带条件选择的下一条

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望: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

第一行、下一行代码不需要变

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/22 16:04:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/22 16:25:00 [显示全部帖子]

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

考虑不要做绑定。在窗口afterload事件取第一行的内容给第一套控件赋值,取第二行的内容给第二套控件赋值

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望: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("第一列")

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望: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

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


加好友 发短信
等级:超级版主 帖子:110544 积分:562604 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/23 21:14:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目0122.zip


 回到顶部