请问老师们窗口的下拉列表框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 If
End With