Foxtable(狐表)用户栏目专家坐堂 → [求助] 将查询结果指定字段作为列表框内容


  共有6718人关注过本帖树形打印复制链接

主题:[求助] 将查询结果指定字段作为列表框内容

帅哥哟,离线,有人找我吗?
bahamute
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1425 积分:11332 威望:0 精华:0 注册:2008/9/1 22:20:00
[求助] 将查询结果指定字段作为列表框内容  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/10 16:51:00 [只看该作者]

控件.ComboList=DataTables("XX").GetComboListString("姓名","[工号] In (" & nms &")")

 回到顶部