........... 销售合计 where 年 = \'" & Format(Date.Now,"yyyy") & "\' And 月 = \'" & Format(Date.Now,"MM") & "\' And (\'," & ddr("账号企业名") & ",\') like \'%,\' + 业绩店名 + \',%\' "
Dim dt As DataTable = cmd.ExecuteReader
With wb.AddArticle("","a2")
For Each a As String In dt.getvalues("业绩店名","业绩店名 is not null")