主题：代码运行出错，应该如何修改代码？（已解决）

一段代码，原来运行正常。为了美观，将"报表年月"列的字符串由原来的"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("当月日汇总") '打开生成的统计表

sql = "Select 报表年月,日期,单位,Sum(加工费) As 加工费, Sum(投工) As 投工,0.1-0.1 As 人均 FROM {日报源表} WHERE 报表年月 = " & ny.REplace("-", "") & " Group By 报表年月,日期,单位"

谢谢狐爸老师的指教！经反复检查，发现自己原来犯了一个低级错误，只要将" & ny & " 改成'"& ny &"'，问题就解决了。再次感谢狐爸老师的帮助。