With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"部门名称","今日进店人数","今日成交人数","今日成交金额","本月累计进店人数","本月累计成交人数","本月累计成交金额","本月目标" ,"本月累计达成率"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("每日业绩明细").sqlSelect("", "", "日期 Desc")
'For Each r As DataRow In DataTables("终端用户").sqlSelect("[报备人] = '" & name & "'", "", "日期 Desc")
With .Body.AddRow(r("部门名称"),r("今日进店人数"),r("今日成交人数"),r("今日成交金额"),r("本月累计进店人数"),r("本月累计成交人数"),r("本月累计成交金额"),r("本月目标"),r("本月累计达成率"))
'.AddCell(Format(r("日期"),"MM月dd日"))
End With
Next
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2018/4/4 10:50:00 [只看该作者]
