我实现了vb的二级联动菜单但是查询代码不会写,请各位大虾帮忙!

解决方案 »

  1.   

    看了‘基础’中的一贴,看来要求是一样的,其实如果是要实现b/s下所说的二级联动,根本什么也不需要做,只要在对应的控件click中增加条件,取数而已....别用b/s的思路来实现c/s程序,也别用c/s思路去做b/s程序....
      

  2.   

    Private Sub Combo3_Click()
       Combo4.Clear    
       Combo4.Refresh
       Comb4
    End Sub
    Sub Comb4()
       txtSQL = "select * from pc where pc_id >= '" & Val(Combo3.Text) & "' order by pc_id"
       Set mrc = ExecuteSQL(txtSQL, MsgText)
          If mrc.RecordCount > 0 Then
             Set Combo4.DataSource = mrc
             mrc.MoveFirst
             While Not mrc.EOF
                Combo4.AddItem mrc.Fields(0)
                mrc.MoveNext
             Wend
          End If
       mrc.Close
    End Sub