以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于排序用S打头的编码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97383)

--  作者:guimingze
--  发布时间:2017/3/10 21:56:00
--  关于排序用S打头的编码?
关于排序我在搜索里找了一个跟我一样情况的,就是在基础的狐表里按照固定顺序输入的,但是生成EXCEl的表里顺序就乱了,是因为后面有空行插入,有一位老师给的答案是用_sevlwa  好像是这么个函数但是我忘了具体咋写了。 请老师指教
--  作者:有点蓝
--  发布时间:2017/3/10 22:30:00
--  
没看懂,截图说明
--  作者:guimingze
--  发布时间:2017/3/11 16:16:00
--  回复:(有点蓝)没看懂,截图说明
图2  中的单位顺序按照 图1  生成     正常情况下基础表原来的顺序就是生成后的EXCEL顺序,但是中间加空行后就不一样了,恰恰我的基础表里有空行,而且空行还是必要的,如何设置代码老师
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
Select Case e.Book.TempLate
    
    Case "横名册"
        
        Dim Filter As String = "单位名称 = \'" & e.DataRow("单位名称") & "\'"
        Dim dt As DataTable = DataTables("竖名册")
        Dim sum1 As Double = dt.Compute("Sum(正科配备)",Filter)
        Dim sum2 As Double = dt.Compute("Sum(实际正科)",Filter)
        Dim sum3 As Double = dt.Compute("Sum(副科配备)",Filter)
        Dim sum4 As Double = dt.Compute("Sum(实际副科)",Filter)
        Dim s1 As String = dt.GetComboListString("正科职数空缺", filter).replace("|", ",").trim(",")
        Dim s2 As String = dt.GetComboListString("正科职数备注", filter).replace("|", ",").trim(",")
        Dim s3 As String = dt.GetComboListString("副科职数备注", filter).replace("|", ",").trim(",")
        Dim s4 As String = dt.GetComboListString("副科职数备注", filter).replace("|", ",").trim(",")
        e.Book.Marks("分组统计字符") = "单位:" & e.DataRow("单位名称") & " 正科配备:" & sum1 & " 实际正科:" & sum2 & " 正科空缺:" & s1 & " 正科备注:" & s2 & "        副科配备:" & sum3 & " 实际副科:" & sum4 & " 副科空缺:" & s3 & " 副科备注:" & s4         
End Select
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2017/3/11 16:26:00
--  
还是没看懂,放2个图对比一下,什么地方不一样
--  作者:guimingze
--  发布时间:2017/3/11 21:54:00
--  回复:(guimingze)回复:(有点蓝)没看懂,截图说明...
我参考了 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=397883&ID=59338&skin=1   <竖名册,单位名称,-11,_Sortkey> 可以解决部分问题 但是 还是有的空行生成表的时候还是给整没了。      原来基础表 中第二监察分局副局长  与纪委接待员中间有空格, 但是生成模板后空行没了
--  作者:有点色
--  发布时间:2017/3/12 20:42:00
--  
 实例发上来测试。
--  作者:guimingze
--  发布时间:2017/3/12 22:22:00
--  回复:(有点色) 实例发上来测试。
例如  竖名册  17   29 为空行   那么      生成EXCEL横名册  中想保留原来的空行  但是却被自动排序到最上面了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问老师.zip


--  作者:有点色
--  发布时间:2017/3/12 23:05:00
--  
空行那里,你要加上单位名称的值,如 市纪委,即可。
--  作者:guimingze
--  发布时间:2017/3/14 13:55:00
--  回复:(有点色)空行那里,你要加上单位名称的值,如...
谢谢老师可以实现了 是否能将实现的空行变为合并单元格的空行呢老师
图片点击可在新窗口打开查看此主题相关图片如下:qra2niwhi4p9{g~bp{5k4yt.png
图片点击可在新窗口打开查看

--  作者:guimingze
--  发布时间:2017/3/14 14:20:00
--  回复:(guimingze)回复:(有点色) 实例发上来...
按照老师的方案,又出现新的问题了   红色的是不用生成表的,绿色的是需要生成的  如何实现
图片点击可在新窗口打开查看此主题相关图片如下:f`r694z49@783hdabkwx.png
图片点击可在新窗口打开查看