Foxtable(狐表) → 用户栏目 → 专家坐堂 → 总分唯一排名代码问题


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

主题：总分唯一排名代码问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111120 积分：565604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/29 13:58:00 [只看该作者]

Tables("表A").grid.Rows(dr.Index + 1).height = 80
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

DataTables("表B").DeleteFor("")
For Each v As String() In DataTables("表A").GetValues("楼幢|楼层") 
    Dim dr As DataRow = DataTables("表B").AddNew() 
    dr("楼幢") = v(0)
    dr("楼层") = v(1)
    Dim prds As List(Of DataRow) = DataTables("表A").select("楼幢='" & v(0) & "' and 楼层='" & v(1) & "'")
    For Each prd As DataRow In prds
        dr(prd("单元号") & "_" & prd("辅助列")) = prd("房号")
    Next 
Next
MainTable = Tables("表B")

从表A生成表B的内容，这段代码正确的。我想表A的内容在窗口通过筛选树筛选分成已签、未签、意向三部分内容，我任选一项，按钮生成表B，请教老师如何修改上述代码？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dim s as string = "已签"
For Each v As String() In DataTables("表A").GetValues("楼幢|楼层","某列='" & s & "'") 
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，这样修改结果显示，表B显示只有符合这个条件的行全部显示出来了。我想在表B只显示己签的单元格，该行其余意向和未签的单元格都不显示，能做到吗
[此贴子已经被作者于2024/1/30 10:31:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111120 积分：565604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/30 10:32:00 [只看该作者]


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


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

For Each dr As Row In Tables("表A").Rows
    If dr("签约状态") = "已签" Then
      '这里已签的有许多行，只要点此按钮，要实现已签的行全部隐藏
       Syscmd.Row.HideSelectedRows() '隐藏选定行  ，此处代码有问题      
    End If
Next
老师，请帮忙解决一下这个问题
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111120 积分：565604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/30 10:51:00 [只看该作者]

Tables("表A").filter = “签约状态 <> '已签'”

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


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

DataTables("表B").DeleteFor("")
Dim s As String = e.Form.Controls("ComboBox1").text
For Each v As String() In DataTables("表A").GetValues("楼幢|楼层", "销售状态='" & s & "'") 
    Dim dr As DataRow = DataTables("表B").AddNew() 
    dr("楼幢") = v(0)
    dr("楼层") = v(1)
    Dim prds As List(Of DataRow) = DataTables("表A").select("楼幢='" & v(0) & "' and 楼层='" & v(1) & "'")
    For Each prd As DataRow In prds
        dr(prd("单元号") & "_" & prd("辅助列")) = prd("房号")
    Next 
Next
MainTable = Tables("表B")
蓝老师，我确实不懂在哪加那个过滤条件，请明示。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111120 积分：565604 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/1/30 10:58:00 [只看该作者]

加到最后

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


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

'这里已签的有许多行，只要点此按钮，实现已签的行全部隐藏
For Each dr As Row In Tables("表A").Rows
    Tables("表A").filter = "签约状态 <> '已签'" 
Next
蓝老师，这个隐藏的代码已解决。请帮助再看一下38楼的代码还有问题
 回到顶部
总数 137 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..14
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07227 秒, 4 次数据查询