请教各位老师，组合框里的三组选项程序不执行，哪里写错了 - 编程论坛

#2

曙光电子2013-02-09 13:00

代码简单没那么复杂:
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "挨星下卦"
Combo1.AddItem "挨星替卦"
Combo1.AddItem "下拉3"
Combo1.ListIndex = 0 '(这句可加可不加、作用自己试)
Combo2.AddItem "下拉1"
Combo2.AddItem "下拉2"
Combo2.AddItem "下拉3"
'同理-------------
Combo3.AddItem "下拉1"
Combo3.AddItem "下拉2"
Combo3.AddItem "下拉3"
'同理-------------
End Sub
请问你这是做的什么软件?是算命软件吗?

[ 本帖最后由曙光电子于 2013-2-9 13:05 编辑 ]

#3

益西翁登2013-02-09 13:12

谢谢！好奇，弄个飞星工具；
按楼上老师指导，改了之后，还是不执行，总是排一个固定的八运子山午向盘，其余大运和其余山向的都排不出来
也就是说跟没改之前效果是一样的，谁会弄加我的QQ452105239帮我修收一下，先谢了！

[ 本帖最后由益西翁登于 2013-2-11 06:17 编辑 ]

#4

曙光电子2013-02-09 13:19

回复 3楼益西翁登

做好了把源发到论坛上大家看看!

#5

Artless2013-02-09 17:38

Private Sub Combo1_Change()
   Select Case gm
        Case 0
        gm = "挨星下卦"
        Case 1
        gm = "挨星替卦"
   End Select
End Sub

gm是什么？

#6

益西翁登2013-02-09 18:52

回复 5楼 Artless

gm 是挨星下卦或挨星替卦

#7

lowxiong2013-02-09 21:57

有两个Combo1_Change()。
貌似不用这么复杂即可达到目的

#8

曙光电子2013-02-10 09:12

回复 3楼益西翁登

其实就是combo1、combo2、comho3的内容关联随着改变问题，作者好象不愿拿出源码？

#9

益西翁登2013-02-10 11:30

这个程序的源码我一年前就打包发上来过，下载的人不少，但后来不了了之，至今没见有人发布正确结果，时隔一年我又想起此事，发上来看看有会弄的没有？

#10

bczgvip2013-02-10 11:47

话说，应该是点击 _click() 事件吧。

#11

益西翁登2013-02-10 15:48

这是我鼓捣的半成品，看看哪儿不对

[ 本帖最后由益西翁登于 2013-2-11 06:09 编辑 ]

#12

益西翁登2013-02-10 16:02

回复 4楼曙光电子

曙光电子老师您好！源码打包发上来了，请老师指正，谢谢！

#13

曙光电子2013-02-10 19:01

回复 12楼益西翁登

你这个程序没那么简单,就你这个半成品分析:
Sub Command1_Click()
    Text1 = "┌──┬──┬──┐" & vbCrLf & "│3  4│8  8│1  6│" & vbCrLf & "│ 七 │ 三 │ 五 │" & vbCrLf & "├──┼──┼──┤" _
            & vbCrLf & "│2  5│4  3│6  1│" & vbCrLf & "│ 六 │ 八 │ 一 │" & vbCrLf & "├──┼──┼──┤" & vbCrLf & _
             "│7  9│9  7│5  2│" & vbCrLf & "│ 二 │ 四 │ 九 │" & vbCrLf & "└──┴──┴──┘"
End Sub
从上面代码来看已定死了输出,与任何其它无关联，所以无变化。想来这个代码的组合应有很多种，本人不懂风水知识,，所以只能给你一启示看有用否？
比如：第一个下拉菜单的选项发生变化，比方说是学校的班级，班级变了，第二个下拉选项是学生，学生的姓名也应该随之发生相应变化，那么就要建一数据库，假定班级和学生的数据从ACCESS数据库中调取，数据库引擎用ADO：

Private Sub Combo1_Click()
    Dim conn As Object, rs As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb数据库文件路径
   Set rs=CreateObject("adodb.recordset")
    rs.open "select * from 学生表 where 班级='" & Combo1.Text & "'",conn,1,1
    Combo2.Clear
    Do Until rs.Eof
        Combo2.AddItem rs("学生姓名") & ""
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
    Combo2.ListIndex = 0
End Sub

#14

益西翁登2013-02-11 06:11

与一年前情况相同，无满意结果

#15

lowxiong2013-02-11 22:30

没看见你的源码