help me

Question

主管给我一个只用data控件和combo控件实现数据浏览的任务.救救我,就要交了.这个任务具体是:
有一个meb.mdb的数据库,里面有商品种类和名称的字段,用户需要从一个名为种类的combo的控件选择一个大类,在下一个名称的combo控件里列出所有这个大类里的商品的名称.

Answer 1

只是思想，代码我觉得不难自己写吧
第一：你要建一个大类的表和商品表 并且大类和商品要有关联（也可以是一个表）
第二：写根据combo1的查询，并将结果返回给combo2

Answer 2

我快晕了
data控件太难用了,好几年都不用了
强力建议使用ado对象你们的主管啊???
测试通过
Option Explicit
Dim icount As IntegerPrivate Sub Combo1_click()
Dim strsql As String
Dim i As IntegerData1.RecordSource = "select * from 物品 where 类型='" & Combo1.Text & "'"
Data1.RecordsetType = 1
Data1.Refresh
Combo2.ClearFor i = 0 To Data1.Recordset.RecordCount - 1
Combo2.AddItem Data1.Recordset.Fields("名称")Data1.Recordset.MoveNext
Next
Combo2.ListIndex = 0
End SubPrivate Sub Command2_Click()
Dim i As IntegerFor i = 0 To icount - 1
Combo1.AddItem Data1.Recordset.Fields("类型")Data1.Recordset.MoveNext
NextEnd Sub
Private Sub Form_Load()
Data1.Refresh
icount = Data1.Recordset.RecordCount
End Sub

Answer 3

//For i = 0 To Data1.Recordset.RecordCount - 1
Combo2.AddItem Data1.Recordset.Fields("名称")这句前面该有:
data1.recordset.movelast西西,???

Answer 4

如果ado对象就简单了
呵呵