If e.DataCol.Name = "驾驶员" Then \'发生变化的是产品编号吗?
    \'在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("参数").Find("驾驶员 = " & "\'" & e.DataRow("驾驶员") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("车号")= dr("车号")
        e.DataRow("车长")= dr("车长")
        e.DataRow("运输地点")= dr("运输地点")
        e.DataRow("运费")= dr("运费")
    End If
End If
参数表已设列：驾驶员、车号、车长、运输地点、运费

在窗口下拉单中选一名驾驶员，车号、车长能自动显示，输入运输地点后运费不能显，是不是代码有误，请老师指点，问题到底出在什么地方，并帮助纠错。

谢谢