以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何设置不排序  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153626)

--  作者：deliangzhaoe --  发布时间：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 = {"序号","考评要素","考评项目","考评内容","标准分值","考评方法","考评描述","扣分","备注"} \'自定义列名

--  作者：有点蓝 --  发布时间：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 --  发布时间：2020/8/18 6:49:00 --   可以了，谢谢蓝老师