主题：求助，那个排序和导出还是没搞定。导出的格式还是不对

那排序我弄的不对。

1、你导出模板是什么，导出代码怎么写啊，怎么不对啊

 

Dim dt As Table = Tables("南京徳亨文生物科技有限公司设备一览表")
Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
dt.SaveExcel("d:\test.xls", "abc", flg)
Dim Book As New XLS.Book("d:\test.xls") '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets("abc") '引用工作簿的第一个工作表

Dim Style As Xls.Style
style = Book.NewStyle '新建一个样式
Style.ForeColor = Color.Red
style.FontBold = True '样式的背景颜色设为红色
Dim Style1 As Xls.Style
style1 = Book.NewStyle '新建一个样式
Style1.BackColor = Color.yellow
style1.BorderBottom = XLS.LineStyleEnum.Thin
style1.Bordertop = XLS.LineStyleEnum.Thin
style1.Borderleft = XLS.LineStyleEnum.Thin
style1.Borderright = XLS.LineStyleEnum.Thin

style1.FontBold = True '样式的背景颜色设为红色

For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
   
   
    If dt.Rows(r)("中心") = "公共设施" OrElse dt.Rows(r)("中心") = "离职" Then
        For c As Integer = 0 To dt.Cols.Count -1
            Sheet(r +1, c).style = style1
        Next
    End If
    If dt.rows(r)("内存") =  "2G"  Then '如果折扣大于等于0.15
        Sheet(r + 1,dt.Cols("内存").Index).Style = Style '设置折扣单元格的样式
    End If
    If dt.Rows(r)("生产日期").year = 2008 OrElse dt.Rows(r)("生产日期").year = 2008 OrElse dt.Rows(r)("生产日期").year = 2008 Then
        Sheet(r + 1,dt.Cols("生产日期").Index).Style = Style '设置折扣单元格的样式
    End If
    If dt.Rows(r)("使用年限") / 365 >= 5 Then
        Sheet(r + 1,dt.Cols("使用年限").Index).Style = Style '设置折扣单元格的样式
    End If
    Dim d As Double = dt.Rows(r)("使用年限")
    Sheet(r + 1,dt.Cols("使用年限").Index).value = d \ 365 & "年" & (d Mod 365) \ 30 & "月"
   
Next

book.Save("d:\test.xls")
Dim proc As new Process
proc.File = "d:\test.xls"
proc.Start

 

2、考勤表加一列排序列，跨表引用父表的_Identify列，然后根据此列排序

 

http://www.foxtable.com/help/topics/1451.htm

 

test是我导出的，20160315 是我想要的格式

我个人觉得弄编号不太好弄。因为我有公共设施，而且我的一览表是错乱的。不是按照顺序排列的。难道我要在做一个姓名表？按这个姓名的编号来排列？

那个导出的按钮我还没有做，我后来看导出的效果不是我所要的。后来我删除了。

这个是我新做得导出，，排序没搞定

不过我这个排序估计不好做。排序是按照中心来排序的，然后最后是离职和公共设施，如果新近员工，按照部门划分，放到部门的最后一个，如今天来程序员，就放到运营中心信息部最后一个，如果明天来了一个客户营销中心的线上营销部  二组员工，放到二组的最后一个。

那个导出的格式不是我想要的格式。我的格式就是我压缩包里面的文件格式。

大红袍帮帮我，还有那个排序我都觉得复杂，我还是一个新手。