以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  能不能实现这样的自动查找  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61764)

--  作者:avatarasdf
--  发布时间:2014/12/18 18:27:00
--  能不能实现这样的自动查找
各位老师:
请问能不能实现这样的查找,点击表A任意一家工厂,能找到表B里面的所有的产
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:如何自动查找产品.foxdb

品,例如工厂1找到A,C,D 3个产品

--  作者:lsy
--  发布时间:2014/12/18 18:38:00
--  
Click事件:

If e.Col.Name = "工厂" AndAlso e.Row.IsNull(e.Col) = False Then
    e.Row("能做的产品") = ""
    For Each dr As DataRow In DataTables("表B").DataRows
        If dr("能做工厂").Contains(e.Row(e.Col)) Then
            e.Row("能做的产品") + = dr("产品名称") & ","
        End If
    Next
    e.Row("能做的产品") = e.Row("能做的产品").Trim(",")
End If