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
都引用了。还是不行
出错行指向哪条语句？
在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拿掉就可以了
{{-
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
