Foxtable(狐表)用户栏目专家坐堂 → 小位数过多,怎么处理?


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

主题:小位数过多,怎么处理?

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


加好友 发短信
等级:幼狐 帖子:177 积分:1718 威望:0 精华:0 注册:2017/3/26 10:20:00
小位数过多,怎么处理?  发帖心情 Post By:2019/7/22 10:39:00 [显示全部帖子]


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

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


加好友 发短信
等级:幼狐 帖子:177 积分:1718 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2019/7/22 11:14:00 [显示全部帖子]

Dim msj As WinForm.TopicPage = fll.Pages("盟市")
msj.Links.Clear

For Each msjfl As String In DataTables("词典").GetComboListString("名称","分类 = '盟市'","_identify").Split("|")
    Dim kg As String = new String(" ",24 - msjfl.Length*2)    '定义前面的对齐空格
    Dim msm As Double = DataTables("小班调查表").Compute("sum(上报面积)","盟市 = '" & msjfl & "'")   '定义统计盟市的数量
    msj.Links.Add(msjfl,msjfl &"(" &  msm  & "亩)")    '合成标题
Next


不知道放哪里好呢?

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


加好友 发短信
等级:幼狐 帖子:177 积分:1718 威望:0 精华:0 注册:2017/3/26 10:20:00
  发帖心情 Post By:2019/7/22 11:43:00 [显示全部帖子]

谢谢!!

 回到顶部