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") &"\'"
原先版本好好的，最近用新版本改进升级，以上这段代码一直以来没有去变化，居然有问题了。

请问该如何处理之？

参考这后面的一部分，关于同名列的处理：

http://www.foxtable.com/help/topics/1626.htm

果然如此，谢谢老六！