主题：[求助]取值求助

 做查询表

http://www.foxtable.com/webhelp/scr/2322.htm

这样是生成了另外一个表，我希望结果还在表A上，至少用的人没有感觉到跳转。

而且我现在表A是临时表，表B是外部表，又希望填写和显示都在表A中逞现，不要跳来跳去。

参考

http://www.foxtable.com/webhelp/scr/1451.htm

我原来也是这样想的，但现在的问题是表B对应表A有多行数据时，即，表A输入一条，表B查询到两条或更多条，此时的代码怎么整？

If e.DataCol.Name = "ID" Then
    Dim drs As List(Of DataRow) = DataTables("表B").Select("ID = '" & e.DataRow("ID") & "'")
    If drs.Count > 0 Then
        e.DataRow("仓库") = drs(0)("仓库")
        SystemReady = False
        For i As Integer = 1 To drs.count-1
            Dim ndr As DataRow = e.DataTable.Addnew
            ndr("Id") = e.DataRow("Id")
            ndr("仓库") = drs(i)("仓库")
        Next
        SystemReady = True
    End If
End If

可以了，非常感谢！