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


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

主题：[求助]要使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”的转换无效。
 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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命令窗口在哪打开啊？
 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 10:44:00 [显示全部帖子]

这个控件写了个enter事件

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


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 10:48:00 [显示全部帖子]

我刚才试了下，去了还是报错。我在确认下

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


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 10:52:00 [显示全部帖子]

我把项目发上来请各位大神看看，指点一二。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:a123.table

位于入库单窗口，的新增入库单的单击事件
[此贴子已经被作者于2014-9-10 10:54:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lijin951
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 10:55:00 [显示全部帖子]

9527

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


加好友 发短信
等级：婴狐 帖子：87 积分：701 威望：0 精华：0 注册：2014/8/4 11:54:00 		  发帖心情 Post By：2014/9/10 11:02:00 [显示全部帖子]

哦，我明白了。哎呀。Tables("入库主表").Current("供应商") <> 0    供应商是个字符怎么可能跟0比较嘛。谢谢大神，火眼金睛啊

我另外一张订单的代码是
Tables("订单主表").Current("客户名称") <> “” 运行能过，简直是侥幸呀
[此贴子已经被作者于2014-9-10 11:05:47编辑过]
 回到顶部
总数 11 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.05566 秒, 6 次数据查询