主题：自动计算

输入运输地点，运费肯定不睡自动显示，因为你分本没有就没有设置对应的代码。

合理的代码是：

If e.DataCol.Name = "驾驶员" Then
    Dim dr As DataRow
    dr = DataTables("参数").Find("驾驶员 = " & "'" & e.DataRow("驾驶员") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("车号")= dr("车号")
        e.DataRow("车长")= dr("车长")
    End If
ElseIf e.DataCol.Name = "运输地点" Then
    Dim dr As DataRow
    dr = DataTables("参数").Find("运输地点 = " & "'" & e.DataRow("运输地点") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("运费")= dr("运费")
    End If
End If