Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]要使combobox控件显示为空该用什么代码？


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

主题：[求助]要使combobox控件显示为空该用什么代码？
帅哥哟，离线，有人找我吗？
lijin951
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		[求助]要使combobox控件显示为空该用什么代码？  发帖心情 Post By：2014/9/10 9:18:00 [只看该作者]

我的代码是
Dim a As WinForm.TextBox = e.Form.Controls("combobox1")
a.text = ""
但是会出现错误：从字符串“123123”到类型“Double”的转换无效。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/9/10 9:20:00 [只看该作者]

这个代码没道理会出现这个错误.错误肯定在其他地方.其他代码.

上个例子看看吧
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

e.Form.Controls("combobox1").Text = ""

 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 9:23:00 [只看该作者]

先有一个窗口的afterload属性
If DataTables("入库主表").DataRows.Count <> 0 Then   ''主表有值的情况下
    
    Dim a As  String = Tables("入库主表").Current("购进单据号")
    Dim b As WinForm.DateTimePicker = e.Form.Controls("gjsr")
    Dim c As WinForm.ComboBox = e.Form.Controls("ghs")
    Dim d As WinForm.TextBox = e.Form.Controls("cgr")
    Dim f As WinForm.TextBox = e.Form.Controls("zy")
    Dim g As WinForm.TextBox = e.Form.Controls("zdr")
    Dim h As WinForm.TextBox = e.Form.Controls("shdh")
    
    Tables("入库单_t1").Filter = "购进单据号 = '" & a & "'"
    b.text = Tables("入库主表").Current("购进日期")
    c.text = Tables("入库主表").Current("供应商")
    d.text = Tables("入库主表").Current("采购人")
    f.text = Tables("入库主表").Current("摘要")
    g.text = Tables("入库主表").Current("制单人")
    h.text = Tables("入库主表").Current("随货单号")
Else
    Dim b1 As WinForm.DateTimePicker = e.Form.Controls("gjsr")
    Dim g1 As WinForm.TextBox = e.Form.Controls("zdr")
    
    b1.Value = Date.Today()
    g1.Value = User.Name
End If

然后问题出现在新增的时候，以下是新增按钮的代码
If DataTables("入库主表").DataRows.Count = 0 Then  ''主表无记录的情况
    Tables("入库主表").AddNew
    
    Dim a As String = Tables("入库主表").Current("购进单据号")
    Dim b As WinForm.DateTimePicker = e.Form.Controls("gjsr")
    Dim c As WinForm.TextBox = e.Form.Controls("zdr")
    
    b.Value = Date.Today()
    c.Value = User.Name
    Tables("入库主表").Current("购进日期") = b.Value                  
    Tables("入库单_t1").Filter = "购进单据号 = '" & a & "'"          
Else
    If Tables("入库主表").Current("供应商") <> 0 Then   ''主表有记录且有值
        Tables("入库主表").AddNew
        
        Dim a1 As String = Tables("入库主表").Current("购进单据号")
        Dim b1 As WinForm.DateTimePicker = e.Form.Controls("gjsr")
        Dim d As WinForm.ComboBox = e.Form.Controls("ghs")
        Dim f As WinForm.TextBox = e.Form.Controls("cgr")
        Dim g As WinForm.TextBox = e.Form.Controls("zy")
        Dim c1 As WinForm.TextBox = e.Form.Controls("zdr")
        Dim h As WinForm.TextBox = e.Form.Controls("shdh")
        
        b1.Value = Date.Today()
        c1.Value = User.Name
        d.text = ""
        f.text = ""
        g.text = ""
        h.text = ""
        Tables("入库主表").Current("购进日期") = b1.Value
        Tables("入库单_t1").Filter = "购进单据号 = '" & a1 & "'"
    Else                                                                 '有记录无值的情况
        Dim a2 As String = Tables("入库主表").Current("购进单据号")
        MessageBox.Show( a2 & "已经是新的出库单无需继续新增","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/9/10 9:26:00 [只看该作者]

你是操作哪里出现的错误,错误的提示截图出来看看.(记得要点击显示详细信息)

 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 9:30:00 [只看该作者]

就是这个
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140910093135.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 9:31:00 [只看该作者]

对应4楼的第二段代码，那就是Button5的click时间

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

自己排查一下错误

 

http://www.foxtable.com/help/topics/1485.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 10:23:00 [只看该作者]

还是搞不定找到有问题的代码了，但是不知道接下来该怎么办，有问题的代码如下（红色表示）
 If Tables("入库主表").Current("供应商") <> 0 Then   ''主表有记录且有值
        Tables("入库主表").AddNew
        Dim a1 As String = Tables("入库主表").Current("购进单据号")
        Dim b1 As WinForm.DateTimePicker = e.Form.Controls("gjsr")
        Dim d As WinForm.ComboBox = e.Form.Controls("ghs")
        Dim f As WinForm.TextBox = e.Form.Controls("cgr")
        Dim g As WinForm.TextBox = e.Form.Controls("zy")
        Dim c1 As WinForm.TextBox = e.Form.Controls("zdr")
        Dim h As WinForm.TextBox = e.Form.Controls("shdh")
        
        b1.Value = Date.Today()
        c1.Value = User.Name
        d.text = ""
        f.text = ""
        g.text = ""
        h.text = ""
        Tables("入库主表").Current("购进日期") = b1.Value
        Tables("入库单_t1").Filter = "购进单据号 = '" & a1 & "'"

随便问下，那个output命令窗口在哪打开啊？
 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询