Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:关于联动三级菜单问题

1楼
裴保民 发表于:2025/4/2 20:18:00
有三个 ComboBox控件 自定义项目提前设置好了 在e.Form.Controls("tongdaomingchengComboBox") 的SelectedIndexChanged事件中写了如下代码:
Dim cmb As WinForm.ComboBox  =e.Form.Controls("tongdaomingchengComboBox")
Dim tdjc As WinForm.ComboBox  =e.Form.Controls("tongdaojianchengComboBox")
Dim zxt As WinForm.ComboBox  =e.Form.Controls("zixitongComboBox")
If cmb.Value IsNot Nothing Then
    If cmb.Value  = "海科融通" Then
        tdjc.ComboList = "Hkrt"
        tdjc.Value =""
        tdjc.SelectedText = "Hkrt"
        zxt.ComboList = "传统POS|QPOS"
        zxt.Value =""
        zxt.SelectedText = "传统POS"
        tdjc.writevalue
        zxt.writevalue
    ElseIf cmb.Value  = "盒子支付"
        tdjc.ComboList = "Hzzf"
        tdjc.Value =""
        tdjc.SelectedText ="Hzzf"
        zxt.ComboList = "1.0系统|2.0系统"
        zxt.Value =""
        zxt.SelectedText = "1.0系统"
        tdjc.writevalue
        zxt.writevalue
    End If
End If
为什么e.Form.Controls("tongdaomingchengComboBox") 选好项目后e.Form.Controls("tongdaojianchengComboBox")会随着变化,而e.Form.Controls("zixitongComboBox")控件不发变化,必须再选一次才变化呀
2楼
有点蓝 发表于:2025/4/3 8:38:00
tongdaojianchengComboBox有没有什么事件代码?
3楼
裴保民 发表于:2025/4/3 15:56:00
没有
4楼
有点蓝 发表于:2025/4/3 16:14:00
请上传实例测试
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.