Private Sub Combo8_Click()
Dim strValue As String

'On Error GoTo ErrorHandler

strSQL = "[部门] = '" & Combo11.Text & "' and [职务] = '" & Combo8.Text & "'" '显示record_name字段的记录等于当前节点的记录
Data2.Recordset.FindFirst strSQL
If Data2.Recordset.NoMatch = False Then
txtFields(15).Text = Data2.Recordset.Fields("岗位工资").Value
Else
MsgBox "没有找到符合" & strSQL & "的记录,请在岗位工资中进行绑定.", vbOKOnly, "系统提示"
End If
Exit Sub
ErrorHandler:
If Err.Number = -2147467259 Then '如果当前保存的记录所有字段为空
Data2.Refresh '刷新记录
End If
End Sub

就是这段查找的代码..就算是合乎条件也提示找不到!
表大家看看这代码有什么问题!
谢谢

[此贴子已经被作者于2007-2-12 11:51:06编辑过]

SQL =SELECT (伱要查詢的信息) FROM 錶 WHERE 所在字段名 = '變量'

是不是要引用ado对象才能用..
可以将我程序改进一下么?
谢谢

不用ADO,普通DATE控件也能做到
Data1.RecordSource = "select * from 表的名字 where " & Trim(要查询的字段) &" like '*"&查询的内容&"*'"
Date1.Refresh

這個是什麼控件呢?```

<DIV class=quote><B>以下是引用<u>清澂居士</u>在2007-2-12 14:05:59的发言：</B><br><br><P>這個是什麼控件呢?```</P></DIV><p>

VB自带的数据访问控件