Foxtable(狐表)用户栏目专家坐堂 → [求助]DropDownBox的按钮,没有教程


  共有2869人关注过本帖平板打印复制链接

主题:[求助]DropDownBox的按钮,没有教程

帅哥哟,离线,有人找我吗?
myjht
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:1639 威望:0 精华:0 注册:2017/4/14 15:58:00
[求助]DropDownBox的按钮,没有教程  发帖心情 Post By:2019/8/26 12:42:00 [只看该作者]

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

 回到顶部