- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙看看，代码该怎么改？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69392)
-- 发布时间：2015/6/4 12:30:00
-- 帮忙看看，代码该怎么改？
Dim drp As WinForm.DropDownBox = e.sender
Dim txt As String = "\'%" & drp.Text & "%\'"
Dim tbl As WinForm.Table = Forms("明细查询").Controls("Table1")
Dim dt As DataTable = tbl.Table.DataTable
dt.LoadFilter = "[品名] Like " & txt
dt.Load(False)
此主题相关图片如下：qq.jpg
-- 发布时间：2015/6/4 12:31:00
--
要判断一下txt有没有值
-- 发布时间：2015/6/4 14:07:00
--
Dim drp As WinForm.DropDownBox = e.sender
Dim txt As String = "\'%" & drp.Text & "%\'"
Dim tbl As WinForm.Table = Forms("明细查询").Controls("Table1")
Dim dt As DataTable = tbl.Table.DataTable
if txt <> "" then
dt.LoadFilter = "[品名] Like " & txt
dt.Load(False)
else
messagebox.show("输入值不能为空")
end if