可以给我一些datalist和datacombo的例程吗？谢谢！！！
可以给我一些datalist和datacombo的例程吗？谢谢！！！ 问题点数：30、回复次数：3Top
1 楼dong1（dong1）回复于 2006-05-03 10:46:29 得分 0
helpTop
2 楼song7538（）回复于 2006-11-16 09:22:24 得分 30
Dim flag_combo3 As Integer
Private Sub DataCombo1_Change()
flag_combo3 = 0
End Sub
Private Sub DataCombo2_Change()
flag_combo3 = 0
End Sub
Private Sub DataCombo3_Change()
Dim bjdm As String, rs_xs As ADODB.Recordset, sql As String
bjdm = Me.DataCombo3.BoundText
Set rs_xs = New ADODB.Recordset
sql = "select * from xsjbxx where bjdm='" & bjdm & "'"
rs_xs.Open sql, conn, 3, adLockReadOnly
Set Me.DataList1.RowSource = rs_xs
End Sub
Private Sub DataCombo3_Click(Area As Integer)
Dim rs_bj As ADODB.Recordset
Set rs_bj = New ADODB.Recordset
rs_bj.Open "select * from bjdm where nj like '%" & Me.DataCombo1.Text & "' and yxdm like '%" & Me.DataCombo2.BoundText & "'", conn, 3, adLockReadOnly
Set Me.DataCombo3.RowSource = rs_bj
End Sub
Private Sub Form_Load()
Dim rs_nj As ADODB.Recordset
Dim rs_yx As ADODB.Recordset
Set rs_nj = New ADODB.Recordset
Set rs_yx = New ADODB.Recordset
rs_nj.Open "select * from njdm where scbj='0'", conn, 3, adLockReadOnly
Set Me.DataCombo1.RowSource = rs_nj
rs_yx.Open "select * from yxdm ", conn, 3, adLockReadOnly
Set Me.DataCombo2.RowSource = rs_yx
End SubTop
3 楼daisy8675（莫依 沉迷）回复于 2006-11-16 10:03:12 得分 0
you can find the solution in msdn by using the keyword "datalist" or "datacombo"Top
