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编辑过]

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