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


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

主题:总分唯一排名代码问题

帅哥,在线噢!
有点蓝
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望: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


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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望: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


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


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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望: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


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

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

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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望: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


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

加到最后

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


加好友 发短信
等级:三尾狐 帖子:643 积分:4697 威望: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