有关TrueDBGrid的问题向各位大虾请教
来源:互联网 发布:算法导论第三版在线 编辑:程序博客网 时间:2024/05/03 20:30
我们在一个vb工程中用到TrueDBGrid Pro 8.0控件,在后期更改过程中我们想把它的Filter功能再添加上去(以前隐藏掉了),可当我们把它的FilterBar属性设为True之后,执行时抛出这样的异常:Provider过滤器不能被打开。Filter的函数如下:
Private Sub TDBGrid1_FilterChange()
On Error GoTo errHandler
Set cols = TDBGrid1.Columns
Dim c As Integer
c = TDBGrid1.col
TDBGrid1.HoldFields
Adodc1.Recordset.Filter = getFilter()
TDBGrid1.col = c
TDBGrid1.EditActive = True
Exit Sub
errHandler:
MsgBox Err.Source & ":" & vbCrLf & Err.Description
For Each col In TDBGrid1.Columns
col.FilterText = ""
Next col
End Sub
Private Function getFilter() As String
Dim tmp As String
Dim n As Integer
For Each col In cols
If Trim(col.FilterText) <> "" Then
n = n + 1
If n > 1 Then
tmp = tmp & " AND "
End If
tmp = tmp & col.DataField & " LIKE '" & col.FilterText & "%'"
End If
Next col
getFilter = tmp
End Function
Debug状态下在紫色字体那句时抛出异常,怀疑跟ADODB的什么设置有关,还请各位大虾不吝赐教!
- 有关TrueDBGrid的问题向各位大虾请教
- 请教各位大虾JB的一个问题?
- 有个关于DetailsView的问题请教各位大虾
- C#IO问题请教各位大虾
- 新手上路~请教各位大虾~~~请教~请教~
- [VB.NET]关于进销存“移动加权平均”的问题,请教各位大虾,
- 请教各位大虾一个问题:联接错误怎么改啊?
- 请教各位大虾一个网络聊天室的错误!
- 请教各位大虾我的C程序哪里有错!急!!!
- 向各位java大师请教一个问题
- 向各位大神请教个问题
- 新人向各位大大请教一个问题
- 有关于c#操作excel的问题 请各位大虾指教
- 请教大虾们分布式文件系统的问题
- 向各位请教。
- 向各位大侠请教
- 各位大哥,请教一下这个有关查询的简单问题,先谢了~
- 请教各位高手一个VC++中有关声音文件的一个问题
- 操作系统引导探究
- 关于嵌入式定义
- Ethernet/Fast Ethernet 的概念问题
- iPod Mini -- 好想要你啊!!!
- 最近把ADO.NET Core Reference翻了一遍
- 有关TrueDBGrid的问题向各位大虾请教
- 各种通信技术表格比较
- Idhttp ,cookie相关
- 我们还有多长的路要走
- 我的blog之旅
- 带球--心随风动
- 用FSO获得图片文件的信息(大小,宽,高)
- 搜索引擎lucene超快速入门
- .Net中如何操作IIS