- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 我设计了一个文本框 进行模糊查询 查询无值时 会出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123908)
-- 发布时间：2018/8/26 20:26:00
-- 我设计了一个文本框 进行模糊查询 查询无值时 会出错
当查询有值时 并不会出错 可当无值时 系统就会弹出错误 请问要怎么解决？
Dim txt As String = e.Form.Controls("TextBox1").Text
With DataTables(e.form.name & "_Table1")
If txt = "" Then
.loadFilter = ""
Else
txt = "\'%" & txt & "%\'"
.loadFilter = "品牌类型 Like " & txt & " Or 品牌名称 Like " & txt
End If
.LoadPage = 0
.LoadTop=e.Form.Controls("ComboBox1").value
.load
\'以下动态显示本表行数
Dim count = DataTables(e.Form.Name & "_Table1").sqlCompute("count([_identify])",.loadFilter) \'统计行数
e.Form.Controls("Label6").text = "共" & count & "条数据"
\'以下设置态动分页列表
Dim comvalue As String \'Combolist的变量值
Dim ttpages As String \'分页最大值
ttpages = DataTables(e.Form.Name & "_Table1").TotalPages
For i As Integer =1 To ttpages
If i <> ttpages Then
comvalue =comvalue & i & "|"
Else
comvalue =comvalue & i
End If
Next
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox2")
cmb.ComboList = comvalue
End With
-- 发布时间：2018/8/26 22:59:00
--
1、报什么错？截图说明。
2、尽量做个例子发上来测试。
-- 发布时间：2018/8/27 9:14:00
--
此主题相关图片如下：333.jpg
此主题相关图片如下：222.jpg
如果查询的值返回空 就出错，如果不为空 就显示数据 并且没有报错
此主题相关图片如下：1535332296(1).jpg
-- 发布时间：2018/8/27 9:30:00
--
你currentChanged事件的代码有问题。在顶部加上代码，如
If e.table.current is Nothing then return