主题：看看这代码

Select Case e.DataCol.name
    Case "车牌","车数"
        Dim dr As DataRow = DataTables("车辆信息").Find("[车牌] = '" & e.NewValue & "'")
        If dr Is Nothing Then
            e.DataRow("装载量") = dr("转载量") * e.DataRow("车数")
End If
End Select

 这样不行