VBÔÚÏßÇóÖú£¬¼±~~ - VB / ¿Ø¼þ

Õâ¸öFunction±àÒëʱÌáʾcan't find project or library
Ó¦¸ÃÊÇÀà¿âûÓÐÌí¼Ó°É£»ÒªÔõô×ö²ÅÐа¡£¿
Ó¦¸ÃÊÇDataComboÕâ¸öµÄÎÊÌâ
Public Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)
  Dim strTmpData As String
  Dim rstmp As ADODB.RecordSet
On Error GoTo err
  If iRsdacbo Is Nothing Then Exit Sub
  strTmpData = Trim(idacbo.BoundText)
  iRsdacbo.Filter = adFilterNone
  If strTmpData <> "" Then
  iRsdacbo.Filter = BoundColumn & " like " & kk(strTmpData & "%")
  End If
  Set rstmp = rsCopy(iRsdacbo)
  GetDatadacboGotFocus idacbo, rstmp, BoundColumn, ListField, , IIf(Trim(strTmpData) <> "", False, True)
  iRsdacbo.Filter = 0
  Exit Sub
err:
  Call GetMsg(E_OnErrMsg, "[ FilterDataCombo ]ErrNo:" & err.Number & " ErrDesc:" & err.Description)
End Sub

---

¶¼ÒýÓÃÁË¡£»¹ÊDz»ÐÐ

---

³ö´íÐÐÖ¸ÏòÄÄÌõÓï¾ä£¿

---

ÔÚIDEÀïÔËÐÐһϿ´¿´ÊÇ·ñ³ö´í£¬³ö´íÐÐÖ¸ÏòÄÄÀï¡£
¼ÇµÃ×¢µôon error Ö®ÀàµÄÓï¾ä

---

³ö´íÖ¸ÏòPublic Sub FilterDataCombo(ByVal idacbo As DataCombo, ByVal BoundColumn As String, ByVal ListField As String, ByVal iRsdacbo As ADODB.RecordSet)

°ÑByVal idacbo As DataComboÄõô¾Í¿ÉÒÔÁË
{{-