- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于筛选的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33292)
-- 发布时间：2013/5/15 11:08:00
-- [求助]关于筛选的
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("筛选_Table1")
If txt = "" Then
tbl.Filter = ""
Else
tbl.Filter = "品名型号 Like \'*" & txt & "*\'"
End If
这句话 数据里有的内容可以筛选出来
如果数据里没有的内容 他就会提示错误
此主题相关图片如下：tm截图未命名.jpg
-- 发布时间：2013/5/15 11:11:00
--
可能是因为如果表控件没有内容,那么整个表都为空值.
你可以先判断一下 表是否为空即可.
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("筛选_Table1")
Dim tbl As Table = Tables("筛选_Table1")
if tbl isnot nothing then
If txt = "" Then
tbl.Filter = ""
Else
tbl.Filter = "品名型号 Like \'*" & txt & "*\'"
End If
If txt = "" Then
tbl.Filter = ""
Else
tbl.Filter = "品名型号 Like \'*" & txt & "*\'"
End If
end if
-- 发布时间：2013/5/15 11:19:00
--
还是一样的提示
等我发一个例子上来你看一下
-- 发布时间：2013/5/15 11:29:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2013/5/15 11:30:00
--
好了发上来你看一下
-- 发布时间：2013/5/15 11:57:00
--
我记得昨天都弄好以后就好好的 输入的内容没有就是显示空的
今天上来就这样 看了半天也没看出来哪里有错的
-- 发布时间：2013/5/15 12:00:00
--
If Tables("筛选_Table1").Rows.Count > 0 Then
Dim dr As DataRow = Tables("筛选_Table1").Current.DataRow
Dim wz As Integer = Tables("表A").FindRow(dr)
If wz >=0 Then
Tables("表A").Position = wz
End If
End If
明确是哪个表，并且这个表有数据。
[此贴子已经被作者于2013-5-15 13:11:12编辑过]
-- 发布时间：2013/5/15 12:11:00
--
此主题相关图片如下：tm截图未命名.jpg
他提示这个错误
-- 发布时间：2013/5/15 12:13:00
--
TABLE只有ROW 没有DATAROW
-- 发布时间：2013/5/15 12:24:00
--
还是不行啊 能不能在我例子上改一下 发给我