Foxtable(狐表)用户栏目专家坐堂 → 控件数据清空问题


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

主题:控件数据清空问题

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


加好友 发短信
等级:二尾狐 帖子:528 积分:5034 威望:0 精华:0 注册:2012/4/6 19:31:00
控件数据清空问题  发帖心情 Post By:2012/8/2 21:52:00 [显示全部帖子]

   我在窗口上设置了控件ComboBox8 并且设置了几个值 想达到当控件值等于某值时 关闭一些控件不让操作,并执行一些值的计算,但有时可能下拉列表值点错了,得另点击,那么就要清空控件的值,我在以下事件中分别设置了不同的语句,但发现,值可以清空,但是选择着其它控件时,当控件关闭时,以前的值却又重新出现并且以灰色的方式显示了来,发现值并没有清空。请帮看一下是什么原因?在leave 事件中设置:

 

With e.Form.controls("combobox8")
 If   .value="信息费"  Then
    e.Form.controls("NumericComboBox2").Enabled=True  '信息费
    e.Form.controls("NumericComboBox4").Enabled=False
    e.Form.controls("NumericComboBox9").Enabled=False
    e.Form.controls("NumericComboBox10").Enabled=False
    End If

 If   .value="订金"  Then
    e.Form.controls("NumericComboBox4").Enabled=True '到手
    e.Form.controls("NumericComboBox2").Enabled=False '信息费
    e.Form.controls("NumericComboBox10").Enabled=False '差价
    e.Form.controls("NumericComboBox9").Enabled=True '订金
 


End If


If   .value="差价"  Then
    e.Form.controls("NumericComboBox4").Enabled=True '到手
    e.Form.controls("NumericComboBox2").Enabled=False '信息费
    e.Form.controls("NumericComboBox10").Enabled=True '差价
    e.Form.controls("NumericComboBox9").Enabled=False '订金


End If

If   .value="信息费加差价"   Then
    e.Form.controls("NumericComboBox4").Enabled=True '到手
    e.Form.controls("NumericComboBox2").Enabled=True '信息费
    e.Form.controls("NumericComboBox10").Enabled=True '差价
    e.Form.controls("NumericComboBox9").Enabled=False '订金

End If

If   .value="信息费加订金"   Then
    e.Form.controls("NumericComboBox4").Enabled=True '到手
    e.Form.controls("NumericComboBox2").Enabled=True '信息费
    e.Form.controls("NumericComboBox10").Enabled=False '差价
    e.Form.controls("NumericComboBox9").Enabled=True '订金
 
 
End If


End With

 

SelectedIndexChanged

事件中设置 

 

Dim cm As WinForm.ComboBox=e.Form.controls("ComboBox8")
  If cm.value  IsNot Nothing Then
    e.Form.controls("NumericComboBox2").value=""
    e.Form.controls("NumericComboBox4").value=""
    e.Form.controls("NumericComboBox9").value=""
    e.Form.controls("NumericComboBox10").value=""
 End If

 

 

请问是什么原因?有什么发的方法解决?我试过在

ValueChanged中设置不行。谢谢!

 


 回到顶部