已有23人关注
再向各位大师请教一个问题
发表在VB答疑区 2010-01-24
是否精华
版块置顶:
我在一个窗体中有几个ComboBox控件。其中有一个Combo2,在这个控件的装入事件中我写入如下代码:
Combo2.List(0) = "综合部": Combo2.List(1) = "拓展部": 
Combo2.List(2) = "个金部": Combo2.List(3) = "营业部": 
Combo2.List(4) = "000"
在“确定”事件中,我写入了如下代码:
If Combo2.List(0) = "综合部" Then
       rs1.Fields("新部门代码") = "027"
  End If
  If Combo2.List(1) = "拓展部" Then
       rs1.Fields("新部门代码") = "028"
  End If
   If Combo2.List(2) = "个金部" Then
       rs1.Fields("新部门代码") = "029"
  End If
  If Combo2.List(3) = "营业部" Then
       rs1.Fields("新部门代码") = "032"
  If Combo2.List(4) = "000" Then
      rs1.Fields("新部门代码") = ""
  End If
问题是:我选择的是Combo2.List(0) = "综合部": 
写入数据库的应该是:"027"
可是却写入了最后一项"000"所对应的""
请各位大师给指教一下。
谢谢!!!!!!!!!!!!!!!!!!!!!!!!

分享到:
精彩评论 2
大漠孤烟2009
学分:0 LV1
2010-01-24
沙发
其他几个控件也有类似的问题。不管你选择的是第一项,还是哪一项,写入数据库的都是最后一项。这是为什么呢?请帮忙给指导一下。
再次表示感谢!!!!!!!!!!!!!!!!!1
vbsoldier
学分:0 LV1
2010-01-25
板凳
使用 Combo1.List(Combo1.ListIndex)进行判断,Combo1.List(Combo1.ListIndex)="xxxxx",代表选中的列表项内容为xxxxx
首页上一页 1 下一页尾页 2 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照