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


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

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


加好友 发短信
等级：四尾狐 帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00 		总分唯一排名代码问题  发帖心情 Post By：2024/1/11 10:57:00 [显示全部帖子]

老师，窗口有“总分排名”代码，排名有重复的。我需要结果为：总分唯一排名。

总分唯一排名规则，总分相同的，按下列优先顺序确定排名顺序：1.总分相同的，语数英三科总分高的分数优先；2.总分相同的，且语数英三科总分相同的：语文高的优先，数学其次，英语最后。按照上述规则，希望按“总分唯一排名”按钮，自动生成“优
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:总分排名唯一2401.foxdb

先顺序号”和“总分唯一排名”两列数据。请教老师如何写这个代码？

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


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

非常感谢蓝老师，这样代码更加简洁、高效了

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


加好友 发短信
等级：四尾狐 帖子：849 积分：5867 威望：0 精华：0 注册：2016/4/15 22:24:00 		代码问题  发帖心情 Post By：2024/1/18 14:33:00 [显示全部帖子]

'判断首字符是否为0，不为0则添加0
'写法1：
Select Case e.DataCol.name
    Case "第八列"
        Dim dr1 As String = Left(e.DataRow("第八列"), 1)
        If dr1 <> 0 Then
            e.DataRow("第九列") = "0" & e.DataRow("第八列") 
        End If 
End Select
'写法2：
Select Case e.DataCol.name
    Case "第八列"
        Dim Country As String = e.DataRow("第八列")
        Dim Val1 As Boolean
        Val1 = Country.StartsWith("0")
        If Val1 = True Then
            e.DataRow("第九列") = "0" & e.DataRow("第八列") 
        End If 
End Select
请老师帮忙看一下这两种方法有哪些问题
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

完美，谢谢蓝老师

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


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

'此代码，金额列和元角分各列均为字符列，代码能用，若将金额列改成高精度小数，固定保留两位小数，元角分各列均为整数列，请教下列代码如何修改？
Select Case e.DataCol.Name 
    Case "分段提取数字5_金额"
        If e.NewValue > "" Then 
            ' Dim str As String = Format(e.NewValue, "0.00").Value '格式化数据，保留2位小位。
            Dim ar() As String = e.NewValue.split(".") 
            e.DataRow("分段提取数字5_元") = ar(0) '小数点前取值为元
            e.DataRow("分段提取数字5_角") = ar(1).SubString(0, 1) 'ar(1)表示小数点后两位（角分）
            e.DataRow("分段提取数字5_分") = ar(1).SubString(1, 1) 
        Else 
            e.DataRow("分段提取数字5_元") = Nothing 
            e.DataRow("分段提取数字5_角") = Nothing
            e.DataRow("分段提取数字5_分") = Nothing 
        End If 
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

谢谢老师，代码挺管用的！

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


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

老师，我想实现这个效
图片点击可在新窗口打开查看此主题相关图片如下：202391510532141169.png
图片点击可在新窗口打开查看
果，请指导一下怎么做，我将效果图放在word文档怎么发不上来？
[此贴子已经被作者于2024/1/22 17:24:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请教老师这里窗口如何动态统计数据？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态统计房态图.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

窗口上有统计标签，比如点到A1幢楼，自动统计已签多少套，未签多少套，意向多少套，每幢楼不同数据

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


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

我也在想怎么去写才好，请老师指导一下

 回到顶部
总数 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.09766 秒, 7 次数据查询