主题：跨表查询不改变被查表状态

现有车辆信息表一张 在表中有车辆状态一列 当前表事件

If e.DataCol.Name = "车辆状态"

    Dim dr As DataRow
    dr = DataTables("配载订单").Find("车牌 = '" & e.DataRow("车牌") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("车辆状态")= "车辆运营中"
Else
        e.DataRow("车辆状态")= "车辆闲置中"
       
    End If
End If

这样在目录树中的车辆状态只会按配载订单当前的信息显示

我想这样在车辆信息窗口加入一个按钮 可以动态选择按哪一天的配载订单来 代码事件是这样

Dim sd As WinForm.DateTimePicker
Dim ed As WinForm.DateTimePicker
sd = e.Form.Controls("DateTimePicker1")
ed = e.Form.Controls("DateTimePicker2")
'Dim cpbh As String = e.Form.Controls("项目").Value

Dim filter As String = "1=1"
If sd.Value <> Nothing Then
    filter &= " And 出车日期 >= '" & sd.value & "'"
End If
If ed.Value <> Nothing Then
    filter &= " And 出车日期 <= '" & ed.value & "'"
End If
'If cpbh <> "" Then
    'Dim temp As String = "1=2"
    'For Each s As String In cpbh.split("/")
        'temp &= " or [项目] Like '%" & s & "%' "
    'Next
   ' filter &= " And (" & temp & ")"
' End If
If ed.value = Nothing AndAlso sd.value = Nothing Then
    filter &= " And 出车日期 = '" & Date.today & "'"
End If
DataTables("配载订单").LoadFilter=filter
DataTables("配载订单").load
DataTables("车辆信息").DataCols("车辆状态").RaiseDataColChanged()

这样是可以实现动态选择日期筛选 但是在另外一个界面的配载订单也会跟着转到那一天的数据 怎样才能实现既可以跨表查询又不改变被查表状态