主题：代码不执行

Select Case e.DataCol.Name

    Case  "G1","G2","G3","G4","G5","G6","G7","G8","G9","G10"

        g = val(e.DataRow(e.DataCol.Name))

        If g = 0

            e.DataRow(cnm.Replace("G","产品") = 0

            e.DataRow(cnm.Replace("G","产品") = e.DataRow(cnm.Replace("G","GX")/g      

        End If

End Select

这样才能完全避免做除数的列没有内容时不会报错。