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

 代码能通过，但是就是执行不了，承运人结算那列不能算出值：

代码没问题，你要么列名错了，要么"运价描述"、"每吨"、"每车"错了。

搞不定就做个简单例子发上来。

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

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

请再看一下，我看了，列名和运价描述都没有错。

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

列名没有错 那就是数据不存在吧!

对了，用这种方法对的，谢谢！有些程序的运用理解有错，所以细节没把握好。