Foxtable(狐表)用户栏目专家坐堂 → 如何设置不排序


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

主题:如何设置不排序

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


加好友 发短信
等级:小狐 帖子:364 积分:3485 威望:0 精华:0 注册:2012/7/24 7:15:00
如何设置不排序  发帖心情 Post By:2020/8/17 20:47:00 [只看该作者]

打印预览时,生成的表A总是排序,如何设置让他不排序,还是按照tbl8中原来的顺序?

预览时是这样的顺序:

图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看
考评要素这一列顺序都乱了。

打印预览按钮内包含这一段代码:
 rt8 = New prt.RenderTable
    rt8.Style.TextAlignVert = prt.AlignVertEnum.Center
    rt8.Style.GridLines.All = New prt.LineDef(0.3,Color.blue)
    rt8.Style.Spacing.Bottom = 5
    rt8.CellStyle.Spacing.All = 1
    rt8.Style.Font = New Font("宋体", 10)
    '设置表格细节
    Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("考评企业名称").value & "*' And 年度 Like '*" & Forms("mainform").controls("标准化考评年度").value & "*' and 扣分 > 0 and 考评要素 not like '%小计%'","") '指定符合条件的行和排序方式
    Dim nms8() As String = {"年度","考评要素","考评项目","考评内容","标准分值","考评方法","考评描述","扣分","备注"} '指定要显示的列即要打印的列
    Dim caps() As String = {"序号","考评要素","考评项目","考评内容","标准分值","考评方法","考评描述","扣分","备注"} '自定义列名
   



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


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/17 21:09:00 [只看该作者]

试试
Rows8 = tbl8.DataTable.Select("企业名称 Like '*" & Forms("mainform").controls("考评企业名称").value & "*' And 年度 Like '*" & Forms("mainform").controls("标准化考评年度").value & "*' and 扣分 > 0 and 考评要素 not like '%小计%'","_sortkey")

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


加好友 发短信
等级:小狐 帖子:364 积分:3485 威望:0 精华:0 注册:2012/7/24 7:15:00
  发帖心情 Post By:2020/8/18 6:49:00 [只看该作者]

可以了,谢谢蓝老师

 回到顶部