主题：原来好好运行的代码，现在发现出错了？

If e.DataCol.Name = "zy" Then
    If edr.isnull("zy") = False Then
        edr("byje") = Nothing
        If  trim(edr("zy")) ="+本月结算"  Then 

            Dim n  As Double
            Dim dr As DataRow = edr
            Dim b As New SQLGroupTableBuilder("js","dxmx")
            b.C
            b.AddTable("dxmx","bh","dxb","bh")
            b.AddCols("dxb","scbm")
            b.Groups.AddDef("scbm")
            b.Totals.AddExp("jsje", "isnull(yjsl,0)*isnull(dj,0)*(1+isnull(jc,0)*0.01)")
            b.Filter = "scbm='"& edr("scbm") &"' And ssn = '"& edr("ssn") &"' and ssy = '"& edr("ssy") &"'"
            b.Build
            If Tables("js").rows.count > 0 Then
                edr("byje") = Tables("js")(0,"jsje")
            End If
       
        End If
    End If
End If

出错提示截图：

此主题相关图片如下：qq截图20111228105754.png

经过检查问题在于这一行代码： b.Filter = "scbm='"& edr("scbm") &"' And ssn = '"& edr("ssn") &"' and ssy = '"& edr("ssy") &"'"
原先版本好好的，最近用新版本改进升级，以上这段代码一直以来没有去变化，居然有问题了。

请问该如何处理之？

果然如此，谢谢老六！