主题：有条件的跨表引用

现有两张表 调度配载 与 行车记录

在行车记录中 datacolchanged 我这代码要怎样改:

If e.DataCol.Name = "项目" Then '如果内容发生变动的是班列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是班列的内容为空
        e.DataRow("项目") = Nothing '那么清空此行文理列的内容
    Else
        Dim dr As DataRow
        '否则在文理分科表查找同名的班行,将找到的行赋值给变量dr
        dr = DataTables("调度配载").Find("(车辆属性) = "翔越" )
        If dr IsNot Nothing Then '如果找到了同名的班行,也就是dr不是Nothing
            e.DataRow("出车日期") = dr("出车日期")
            e.DataRow("项目") = dr("项目")
            e.DataRow("车牌") = dr("车牌")
            e.DataRow("司机") = dr("司机")
            e.DataRow("送货地址") = dr("送货地址")
        End If
    End If
End If

这一句要怎样改

dr = DataTables("调度配载").Find("(车辆属性) = "翔越" )