Foxtable(狐表)用户栏目专家坐堂 → 集合取值


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

主题:集合取值

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
集合取值  发帖心情 Post By:2023/3/30 15:14:00 [显示全部帖子]

Dim lst As List(Of String) = dt.GetValues("所属机构") '获得名称集合
当lst.Count > 5 时,只取前5个,怎么操作

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/30 15:36:00 [显示全部帖子]

sql 怎么修改,值生成订单数量按大到小排序,前5的数据
cmd.Co  mmandText = "S  elect * From (S elect 所属机构, Count( * ) As 订单数量 From {投标报名登记} Where 报名日期 >= #" & d1 & "# and 报名日期 <= #" & d2 & "#  Group By 所属机构) As a Order By 订单数量"
[此贴子已经被作者于2023/3/30 15:46:42编辑过]

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/30 16:29:00 [显示全部帖子]

dt是生成的临时表,没法用top来加载了吧,
我觉得应该可以用移除行号为5以后的行,没写出来。
[此贴子已经被作者于2023/3/30 16:31:22编辑过]

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/30 16:50:00 [显示全部帖子]

我6个机构,刚好把数量最多的过滤掉了,如果排序按照逆序,图表的顺序又不对

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/31 9:09:00 [显示全部帖子]

倒序不对的,图表变这样了,我在集合里面排序不排序 ,结果都是这样

图片点击可在新窗口打开查看此主题相关图片如下:1111.jpg
图片点击可在新窗口打开查看
我实际要的效果是这样的,只是不显示6分公司

图片点击可在新窗口打开查看此主题相关图片如下:33333.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2023/3/31 9:15:07编辑过]

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/31 9:19:00 [显示全部帖子]

Series.Length = lst.Count '设置图系的长度
For Each r As DataRow In dt.DataRows
    For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置
        Series.X(i) = i '指定水平坐标
        Series.DataLabelText = "{#YVAL}"  '显示Y轴的值
        Series.DataLabelCompass = LabelCompassEnum.East  '标识的位置
        Series.Y(i) = dt.DataRows(i)("订单数量") '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, dt.DataRows(i)("所属机构")) '指定字符表示
    Next
Next

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/31 9:26:00 [显示全部帖子]

还是一样的效果

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/3/31 9:34:00 [显示全部帖子]

这样就不需要倒序排列了

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2023/4/4 10:00:00 [显示全部帖子]

解决了
[此贴子已经被作者于2023/4/4 10:04:59编辑过]

 回到顶部