新手问题,关于组合框,急

无聊客 2006-02-19 02:48:59
当我修改一个组合框的选中值时,我想修改另外一个组合框的选中状态,该如何修改?
比如Combo1如果选了第2个,那么Combo2我也想自动跟着选到第2个上,谢谢!
...全文
127 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
无聊客 2006-02-19
  • 打赏
  • 举报
回复
看了下帮助,ListIndex是只读的啊,如果要可写,要把BoundColumn设置为0,,可是我试了还是不行,郁闷
无聊客 2006-02-19
  • 打赏
  • 举报
回复
奇怪了,,都有数据的啊,我是操作ACCESS的数据的,Combo box和表数据是绑定的,会不会和这个有关系?但是两个Combo box确实都有数据,数量也是一样的
faysky2 2006-02-19
  • 打赏
  • 举报
回复
可能是你的Combo1里的记录数与Combo2里的记录数不一样吧,加个判断条件就好了:

Private Sub Combo1_Click()
If Combo2.ListCount > Combo1.ListIndex Then
Combo2.ListIndex = Combo1.ListIndex
Else
Combo2.Text = ""
End If
End Sub
rainstormmaster 2006-02-19
  • 打赏
  • 举报
回复
同上

另外,如果你也可以考虑用子类实现
faysky2 2006-02-19
  • 打赏
  • 举报
回复
我测试过,没问题的呀,你的Combox2里有没有数据
无聊客 2006-02-19
  • 打赏
  • 举报
回复
按照楼上的好象不行啊,系统提示错误如下:
运行时错误“7777”
您错误的使用了ListIndex属性

好象可以取,但是给它附值不行
faysky2 2006-02-19
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Dim i%
For i = 0 To 10
Combo1.AddItem i
Combo2.AddItem i
Next
End Sub

Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧