专家坐堂-关于数据库筛选的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于数据库筛选的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161241)

--  作者：hongye
--  发布时间：2021/3/10 16:18:00
--  关于数据库筛选的问题

Dim cmd As New SQLCommand
Dim dr As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT Name Fr om {用户信息}"
dr = cmd.ExecuteReader()
Dim dt As DataTable
Dim lst As WinFo rm.CheckedListBox = e.For m.Controls("CheckedListBox1")
cmd.C
cmd.CommandText = "SELECT * Fr om {员工信息} WHERE 员工姓名 <> dr("Name") ORDER BY 员工编号"
dt = cmd.ExecuteReader()
For Each drs As DataRow In dt.Datarows
lst.Items.Add(drs("员工姓名") & " " & drs("所在部门"))
Next
If Lst.Items.Count > 0 Then
lst.SelectedIndex = 0
End If

能不能帮帮看看，如何修改

--  作者：有点蓝
--  发布时间：2021/3/10 16:24:00
--
要做什么功能，使用文字描述一下？看的有点迷糊

--  作者：hongye
--  发布时间：2021/3/10 16:30:00
--
SQL里有两个表，{员工信息}和{用户信息}表，如果用户信息表里已有员工数据，那么就在CheckedListBox1不显示这个员工

--  作者：有点蓝
--  发布时间：2021/3/10 16:38:00
--

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim lst As WinFo rm.CheckedListBox = e.For m.Controls("CheckedListBox1")
cmd.C
cmd.CommandText = "SELECT DISTINCT  员工姓名 + \' \' + 所在部门 as 姓名 From {员工信息} WHERE 员工姓名 not in (select Name from {用户信息}) ORDER BY 员工编号"
dt = cmd.ExecuteReader()
lst.ComboList = dt.GetComboListString("姓名")
If Lst.Items.Count > 0 Then
lst.SelectedIndex = 0
End If