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


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

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


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/23 16:01:00 [显示全部帖子]

老师，我增加了三个表，总表，还有未签分表，一张已签和意向分表
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态统计房态图11.rar
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/23 17:13:00 [显示全部帖子]

蓝老师，能不能根据总表写代码直接生成表C的内容？

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


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/24 10:36:00 [显示全部帖子]

老师，我做了一个垂直表转水平表的临时表，总表增加了辅助列，有2个问题在窗口上说明，请老师帮忙解决一下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态统计销控表24012401.rar
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/24 11:03:00 [显示全部帖子]

蓝老师，上面两个问题已解决。但现在我想不用临时表改用固定的数据表，用数据填充的方式，这里代码有点问题，麻烦蓝老师帮忙解决一下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态统计销控表24012402.rar
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		已解决  发帖心情 Post By：2024/1/24 13:49:00 [显示全部帖子]

非常感谢蓝老师

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


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/29 13:07:00 [显示全部帖子]

用代码设置指定行的行高 ，当表A“区域列”的值等于"北京"时，该行行高设置为80。老师，请修改一下该代码

For Each dr As Row In Tables("表A").Rows

    If dr("区域") = "北京" Then

        Tables("表A").grid.Rows(Tables("表A").Current.Index + 1).height = 80

    End If

Next


我需要区域=北京这一行的行高为80

[此贴子已经被作者于2024/1/29 13:31:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/29 13:44:00 [显示全部帖子]

Tables("表A").Current.Index+1  调整了表的第二行标题栏为80；Tables("表A").Current.Index  调整了表的第一行标题栏为80
我需要的是表中满足条件的某行
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：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，请教老师如何修改上述代码？
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/1/30 10:31:00 [显示全部帖子]

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


加好友 发短信
等级：三尾狐 帖子：678 积分：4884 威望：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
老师，请帮忙解决一下这个问题
 回到顶部
总数 80 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 8 次数据查询