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

For Each nm As String In DataTables("xxx").GetUniqueValues("","bm")
    Dim ex As New Exporter
    ex.SourceTableName = "bm"
    ex.FilePath = "c:\" & nm & ".xls"
    ex.Format = "Excel"
    ex.Filter = "[bm] = '" & nm & "'"
    ex.Export()
Next

参考：

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

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