[求助]DropDownBox的按钮，没有教程 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问老师们窗口的下拉列表框DropDownBox取到了文本，按钮应该如何写？帮忙看下我的按钮错在哪里，谢谢。

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 = '%" & txb1.Text & "%'"

DataTables("库存查询_商场库存").Load '(False)

End If

End With

DataTables("库存查询_商场库存").loadfilter="STOCKC.CMTEID like '%" & txb1.Text & "%'"

蓝爸爸，like 后就下图这样了，是我电脑内存不够？数据量也不大啊。。。

此主题相关图片如下：3333.png

此主题相关图片如下：4444.png

加载了太多的数据，增加查询条件，或者分页显示结果

如果不是模糊查询，改为

DataTables("库存查询_商场库存").loadfilter="STOCKC.CMTEID = '" & txb1.Text & "'"

同窗口，同下拉菜单DropDownBox和按钮Button，table1:商场库存，table2：采购在途

table1的SQLQuery语句：

此主题相关图片如下：a1.png

table2的SQLQuery语句：

此主题相关图片如下：a2.png

按钮代码：

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 = '" & txb1.Text & "'"

'DataTables("库存查询_商场库存").Load '(False)

DataTables("库存查询_采购在途").loadfilter="v_vorder.CMTEID = '" & txb1.Text & "'"

DataTables("库存查询_采购在途").Load '(False)

End If

End With

窗口预览table1和table2加载所有数据正常，（加载分别不到万条记录），

通过按钮查询table1就会崩溃，table2就没问题，说明问题出在SQL语句的联查上了，

请老师指点应该如何改。

1、给各种id列加上索引。

2、去掉with nolock

3、全部改为内联查询：inner join

建议把sql做成视图，直接引用

主题：[求助]DropDownBox的按钮，没有教程