以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 将查询结果指定字段作为列表框内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32927)
--  作者：bahamute
--  发布时间：2013/5/10 16:14:00
--  [求助] 将查询结果指定字段作为列表框内容

以下代码查询到结果后，如何将姓名列自动作为列表框（ListBox1）项目？请指教。

...................（省略）

Case "今天生日员工"

                   nms = ""

                   For Each dr As DataRow In DataTables("基本信息").DataRows

                       Dim dt As Date = dr("出生日期")

                       If dt.Month = Date.Today.Month AndAlso dt.Day = Date.Today.Day Then

                            nms = nms & ",\'" & dr("工号") & "\'"

                            End If

                   Next

                   If nms = "" Then

                       MessageBox.Show("今天没有员工过生日")

                       Return

                   Else

                       nms = nms.Trim(",")

                       Tables("Table2").Filter = "[工号] In (" & nms &")"

            此处将姓名列自动作为列表框（ListBox1）项目...........

...................（省略）
--  作者：Bin
--  发布时间：2013/5/10 16:51:00
--  
控件.ComboList=DataTables("XX").GetComboListString("姓名","[工号] In (" & nms &")")