标题: 急!为什么老是报"类型不匹配"错误? [打印本页] 作者: olive_fy 时间: 2009-2-3 14:48 标题: 急!为什么老是报"类型不匹配"错误? 我定义了个函数,如何在过程中引用,总是报"类型不匹配"错误,请大家指教!
这个函数是引用控件内容,生成过滤内容.
详见附件!作者: Grant 时间: 2009-2-3 15:07
Function FltStr(ComboBoxName As ComboBox)
If Left(ComboBoxName.Text, 2) = "所有" Then
FltStr = ""
Else
FltStr = ComboBoxName
End If
End Function
Private Sub PN_AfterUpdate()
Debug.Print FltStr(PN)
'Me.CFDetFG.Form.filter =
'Me.CFDetFG.Form.FilterOn = True
End Sub
FLDName As Field? 值列表会有字段名称吗?作者: ACMAIN_CHM 时间: 2009-2-3 15:38
Function FltStr(ComboBoxName As ComboBox, FLDName As String)
If Left(ComboBoxName.Text, 2) = "?ùóD" Then
FltStr = ""
Else
FltStr = FLDName & "='" & ComboBoxName.Value & "'"
End If
End Function
Private Sub PN_AfterUpdate()
Me.CFDetFG.Form.filter = FltStr(PN, "PN")
Me.CFDetFG.Form.FilterOn = True
End
注释 若要设置或返回一个控件的 Text 属性，控件必须具有焦点，否则就会出错。要将焦点移到一个控件上，可以使用 SetFocus 方法或 GoToControl 操作。
当控件获得焦点时，Text 属性将包含控件中当前的文本数据，而 Value 属性将包含控件上一次保存的数据。当焦点移动到另一控件时，控件的数据将会更新，并且 Value 属性将设置为这一新值。在重新获得焦点之前，Text 属性设置是不可用的。如果使用“记录”菜单中的“保存记录”命令来保存控件中的数据，而不移动焦点，则 Text 属性和 Value 属性的设置将是相同的。
