主题：[求助]要使combobox控件显示为空该用什么代码？

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

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

 

自己排查一下错误

 

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

 

 你的意思是，你删除了红色代码就不报错？那么你去看这个控件写了什么代码，比如textchange事件valuechanged事件

 红色代码去掉就不报错？你先确认哪一句代码报错

 密码多少

If DataTables("入库主表").DataRows.Count = 0 Then  ''主表无记录的情况
    'MessageBox.Show(1)    检查代码运行错误用
    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
    ' MessageBox.Show(2)
    If Tables("入库主表").Current.IsNull("供应商") = False 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
        'MessageBox.Show(3)                                                                 '有记录无值的情况
        Dim a2 As String = Tables("入库主表").Current("购进单据号")
        MessageBox.Show( a2 & "已经是新的入库单无需继续新增","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If