首页上一页 1 下一页尾页 2 条记录 1/1页
再向各位大师请教一个问题
发表在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"所对应的""
请各位大师给指教一下。
谢谢!!!!!!!!!!!!!!!!!!!!!!!!
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"所对应的""
请各位大师给指教一下。
谢谢!!!!!!!!!!!!!!!!!!!!!!!!