错误提示:Exception of type 'System.OutOfMemoryException' was thrown.
描述:窗口,Table,SQLQuery表,Button快速查询代码如下:
With e.Form
If e.sender.Text <> "请输入关键字" Then
Dim txb1 As WinForm.DropDownBox = e.Form.Controls("快速查询")
If txb1.Text = "" Then '如果下拉框没有输入内容,则无需查询
MessageBox.Show("别闹?啥也没输入,找啥啊!!!", "请输入内容!", MessageBoxButtons.OK, MessageBoxIcon.Question)
Else
DataTables("库存查询_工厂库存").loadfilter="STOCKC.CMTEID Like '%" & txb1.Text & "%'"
DataTables("库存查询_工厂库存").Load '(False)
End If
End If
End With

此主题相关图片如下:1.png

执行后系统崩溃,报错如图:特此求助如何解决。