以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179519)
--  作者：lance
--  发布时间：2022/8/27 18:19:00
--  [求助]

有一个表，含“功能”“模块”二列，现需显示“功能”列相同的“模块”值，这样写对吗

 

Dim txt As List(Of String) = DataTables ("t_功能模块").GetValues("功能")
For Each txt1 As String In txt
    Dim mk As List(Of String) = DataTables ("t_功能模块").GetValues("模块", "功能" = txt1) 
    For Each mk1 As String In mk
         MessageBox.Show (mk1)
    Next
Next
--  作者：有点蓝
--  发布时间：2022/8/28 20:09:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080


Dim mk As List(Of String) = DataTables ("t_功能模块").GetValues("模块", "功能=\'" & txt1 & "\'") 
--  作者：lance
--  发布时间：2022/9/2 8:54:00
--  
已弄清楚，谢谢