主题：小白求助

If e.DataRow("其他_项目") = ""  Or e.DataRow("其他_项目") = "行程结束"  Then
    e.DataRow("其他_单价") = 0   
Else
    Dim dr3 As DataRow = DataTables("供应商管理").Find("其他_项目 = '" & e.DataRow("其他_项目") & "'")
    If dr3 IsNot Nothing Then
        e.DataRow("其他_单价") = dr3("其他_价格")
    End If
End If