以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教自定义列表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128053)
--  作者：chaomoshou
--  发布时间：2018/11/27 22:44:00
--  求教自定义列表

求教：当前表B中输入姓名，希望在表A中提取相应姓名的编号，在当前表B的编号列中生成一个自定义列表供选择。

表B的preparedit写如下代码，只能获取第一个编号，请问如何才能获取多个编号生成自定列表？

If e.Col.Name = "编号" Then
    If e.Row.IsNull("姓名") = False Then
        Dim dr As DataRow
        dr = DataTables("表A").find("[姓名] = \'" & e.Row("姓名") & "\'")
        If dr IsNot Nothing Then \'一定要判断是否存在对应的行
            e.Col.ComboList = dr("编号")
        End If
    Else
        e.Row("编号") = Nothing
    End If
End If

 
--  作者：y2287958
--  发布时间：2018/11/27 22:56:00
--  
e.Col.ComboList = DataTables("表A").GetComboListString("编号","[姓名] = \'" & e.Row("姓名") & "\'")
--  作者：有点蓝
--  发布时间：2018/11/27 22:56:00
--  

If e.IsFocusCell Then \'如果是焦点所在单元格
    If e.Col.Name = "编号" Then
        If e.Row.IsNull("姓名") = False Then
            e.Col.ComboList = DataTables("表A").GetComboListString("编号","[姓名] = \'" & e.Row("姓名") & "\'")
        Else
            e.Row("编号") = Nothing
        End If
    End If
End If