主题：[求助]导出数据分组排序求助

方法1、用excel报表导出；

 

方法2、动态加一列，然后排序，然后赋值，然后再导出。

用excel报表，是最简单的。

 

自己编写代码导出的话，处理是最灵活的。也就是先排序，然后编码导出

回复7楼。

 

1、上传具体例子和代码

 

2、用excel可以直接指定排序啊 http://www.foxtable.com/help/topics/1397.htm

 

逻辑是什么？同一天的重新排序？

 

DataTables("表B").DataCols.Add("序号", Gettype(Double))
For Each rq As String In DataTables("表B").GetValues("日期", "日期 is not null")
    Dim idx As Integer = 0
    For Each dr As DataRow In DataTables("表B").Select("日期 = #" & rq & "#")
        dr("序号") = idx
        idx += 2
    Next
Next

参考10楼代码啊

不会做，上传foxtable例子，不要上传excel表格

For Each ary() As String In DataTables("凭证生成").GetValues("单据类型|本单日期", "本单日期 is not null")
    Dim idx As Integer = 0
    For Each dr As DataRow In DataTables("凭证生成").Select("本单日期 = #" & ary(1) & "# and 单据类型 = '" & ary(0) & "'")
        dr("分录号") = idx
        idx += 2
    Next
Next