主题：请帮看一下代码哪里有错？

 我纳闷你那个中文字符的逗号怎么写得进去的。

 代码逻辑没有错，看是否列名等写错了。

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "订金方式","运价描述","运价","承运人应结算"
        If dr("订金方式")="信息费" Then
            Select Case dr("运价描述")
                Case "每吨"
                    dr("承运人应结算")=dr("重量")*dr("运价")
                Case "每车"
                    dr("承运人应结算")=dr("运价")
            End Select
        End If
End Select