Foxtable(狐表)用户栏目专家坐堂 → 动态增加控件的问题


  共有2097人关注过本帖树形打印复制链接

主题:动态增加控件的问题

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


加好友 发短信
等级:幼狐 帖子:50 积分:497 威望:0 精华:0 注册:2017/9/5 11:59:00
动态增加控件的问题  发帖心情 Post By:2017/12/29 10:26:00 [只看该作者]

请教:
If e.Form.existcontrol("combobox3")=True Then
    Dim cmb3 As winform.combobox=e.Form.createcontrol("ComboBox3",controltypeenum.combobox)
    If cmb3.value Is Nothing Then
        messagebox.show("请选择类别!","提示",messageboxbuttons.ok,messageboxicon.Information)
    End If
end if
    明明cmb3中输入了内容,还是出现messagebox,哪里出了问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/29 10:41:00 [只看该作者]

没看懂你要做什么。其余代码删除,单独写

 

    If e.form.controls("ComboBox3").text = nothing Then
        messagebox.show("请选择类别!","提示",messageboxbuttons.ok,messageboxicon.Information)
    End If

 回到顶部
帅哥哟,离线,有人找我吗?
SZCD111
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:50 积分:497 威望:0 精华:0 注册:2017/9/5 11:59:00
  发帖心情 Post By:2017/12/29 11:20:00 [只看该作者]

ComboBox3是动态增加到窗口的。窗口保存数据之前,先判断窗口中是否存在ComboBox3,如果存在,如果没有输入数据,提示。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/29 11:48:00 [只看该作者]

If e.Form.existcontrol("combobox3")=True Then
    If e.form.controls("ComboBox3").text = nothing Then
        messagebox.show("请选择类别!","提示",messageboxbuttons.ok,messageboxicon.Information)
    End If
end if

 回到顶部
帅哥哟,离线,有人找我吗?
SZCD111
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:50 积分:497 威望:0 精华:0 注册:2017/9/5 11:59:00
  发帖心情 Post By:2017/12/29 12:07:00 [只看该作者]

value不行吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/29 12:24:00 [只看该作者]

你代码错误在于,你为什么又要重新CreateControl?

 

text,value都可以,但有微小区别

 

http://www.foxtable.com/webhelp/scr/0750.htm

 


 回到顶部