副本表筛选情况下的自定义录入窗口问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

http://www.foxtable.com/webhelp/topics/2465.htm

这有个窗口表A，设置为副本表，表因为内容多设置了筛选，如 "其他列1 = 'A'"，同时存在这个自定义录入窗口DropDownForm的功能，

但是目前这段代码中

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("客户ID")
        Tables("订单").Current("其它列1") = tbl.Current("其它列1")
        Tables("订单").Current("其它列2") = tbl.Current("其它列2")
        Tables("订单").Current("其它列3") = tbl.Current("其它列3")
        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If
End If

采用的是Tables("订单").Current，选中行，但如果是副本表，Tables("订单_table1").Current("其它列1") = "B" 进行了筛选列的修改，则会自动进行筛选，导致之前选择的行的内容会错位更新到筛选后的行

If e.Selected Then '如果选择了值
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then

Dim w as datarow = datatable("订单").find("_Identify = '" & Tables("订单_table1").Current("_Identify") & "'")

if w isnot nothing then

w("客户ID") = tbl.Current("客户ID")

w("其它列1") = tbl.Current("其它列1")
w("其它列2") = tbl.Current("其它列2")
w("其它列3") = tbl.Current("其它列3")

end if
        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If

End If
End If

我改成这样还是错误，这个在不改变副本表属性的情况下如何改？

主题：副本表筛选情况下的自定义录入窗口问题