以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  小位数过多,怎么处理?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138058)

--  作者:白国栋
--  发布时间:2019/7/22 10:39:00
--  小位数过多,怎么处理?

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

--  作者:有点酸
--  发布时间:2019/7/22 10:44:00
--  
你可以对统计结果进行四舍五入或取整。
--  作者:白国栋
--  发布时间: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


不知道放哪里好呢?

--  作者:有点蓝
--  发布时间:2019/7/22 11:23:00
--  
msj.Links.Add(msjfl,msjfl &"(" &  format(msm,"0.00")  & "亩)") 
--  作者:白国栋
--  发布时间:2019/7/22 11:43:00
--  
谢谢!!