导出到EXCEL问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

For Each yg In da.GetValues("工号")
    Dim b As new XLS.Book
    Dim s As XLS.Sheet=b.sheets(0)
    'Dim Style As Xls.Style = b.NewStyle '新建一个样式
    'Style.BackColor = Color.Red '样式的背景颜色设为红色
    Dim cs As new List(of String)

    For Each dc As DataCol In da.DataCols
        cs.Add(dc.name)
    Next

    For c As Integer=0 To da.DataCols.count-1
        s(0,c).value=cs(c)

    Next

    For r As Integer=0 To da.DataRows.count-1
        For c As Integer=0 To da.DataCols.count-1
            s(r+1,c).value=da.dataRows(r)(cs(c))
            MessageBox.show(2)
        Next

        b.Save("c:\lzj\" & da.dataRows(r)(0) & da.dataRows(r)(1) & ".xls")
    Next
Next

主题：导出到EXCEL问题