以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于查询问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149955)
--  作者：lgz518
--  发布时间：2020/5/16 15:00:00
--  关于查询问题
Dim Filter As String
With e.Form.Controls("DdDh")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "订单单号= \'" & .Value & "\'"
    End If
End With

With e.Form.Controls("KHMS")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名称= \'" & .Value & "\'"
    End If
End With

If Filter > "" Then
Tables("销售单").Filter = Filter
End If

上面是查询代码，如何实现扩展为，按单号查询后，客户名称文本编辑框显示，当前查到结果的客户名称？


图片点击可在新窗口打开查看此主题相关图片如下：查询问题.jpg
图片点击可在新窗口打开查看
--  作者：linyunu1
--  发布时间：2020/5/16 15:21:00
--  
后面加上
dim r as row = Tables("销售单").Current
if r isnot nothing then
e.Form.Controls("KHMS").text = r("客户")
end if
--  作者：有点蓝
--  发布时间：2020/5/16 15:21:00
--  
If Filter > "" Then
Tables("销售单").Filter = Filter
e.form.controls("xxx").ComboList = DataTables("销售单").GetComboListString("客户",Filter)
End If