一段代码，原来运行正常。为了美观，将"报表年月"列的字符串由原来的"201101"改成"2010-01"，代码运行出错，应该如何修改代码，请各位老师指教，谢谢！！

此主题相关图片如下：h.png

代码如下：

Dim sql As String
Dim ny As String = Forms("数据载入").Controls("ComboBox1").Text
\'根据年月生成临时表
sql = "Select 报表年月,日期,单位,Sum(加工费) As 加工费, Sum(投工) As 投工,0.1-0.1 As 人均 FROM {日报源表} WHERE 报表年月 = " & ny & " Group By 报表年月,日期,单位"
\'根据临时表生成年度汇总表
Dim b As New CrossTableBuilder("当月日汇总",sql,"SCGL")
b.HGroups.AddDef("单位")
b.VGroups.AddDef("日期",DateGroupEnum.Month,"{0}月")
b.VGroups.AddDef("日期",DateGroupEnum.Day,"{0}日")
b.Totals.AddDef("加工费")
b.Totals.AddDef("投工","在册人数")
b.Totals.AddDef("人均","人均加工费")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
MainTable = Tables("当月日汇总") \'打开生成的统计表