主题：[求助] Exception of type 'System.OutOfMemoryException' was thrown.

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

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