vb 中进行查询操做的一些问题（急！急！急！）

来源：百度知道编辑：UC知道时间：2024/07/01 16:33:23

txtSQL = "select DISTINCT ygdept from manrecord"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Not mrc.EOF Then
Do While Not mrc.EOF
Combo1(0).AddItem Trim(mrc!ygdept)
mrc.MoveNext
Loop
Combo1(0).ListIndex = 0
Else
MsgBox " 请先进行员工登记", vbOKOnly + vbExclamation, "警告"
cmdSave.Enabled = False
Exit Sub
End If
这是一个在进行窗口载入时的初始化操作（load）
其中 ExecuteSQL(txtSQL, MsgText)是定义的一个公共的方法，肯定是正确的 MsgText会返回关于查询结果的一段提示
不知道为何在MsgText中提示查询结果不为空，但

MsgBox " 请先进行员工登记", vbOKOnly + vbExclamation, "警告"

这一句总会被执行，不知道为何！
请高手指教！
就是说一下可能会有啥错误！

在Combo1(0).ListIndex = 0 下面加上Exit Sub看看。

ExitSub
If Not mrc.EOF Then
Do While Not mrc.EOF
Combo1(0).AddItem Trim(mrc!ygdept)
mrc.MoveNext
Loop
Combo1(0).ListIndex = 0
ExitSub
Else
MsgBox " 请先进行员工登记", vbOKOnly + vbExclamation, "警告"
cmdSave.Enabled = False
Exit Sub
End If

select DISTINCT * ...

加个*号试试

VB中如何在查询的基础上再次进行查询 vb中使用adodc进行查询的方法 VB中数据库查询的语法问题请教操做电脑时遇见的一些问题。 VB编程中控件的一些问题怎样对中华人民共和国特种操作证的真伪进行查询 vb做查询和报表的问题，懂的进 VB 和 SQL 中怎么样进行参数传递？例如：VB中把text1的值作为where的查询条件？ vb中查询数据库中简单问题 VB中ADO控件怎么用日期进行查询啊？