Question

目前我在做一个订单系统，我需要创建2个过滤器来过滤数据库中的数据并显示在datagrid中。第一个组合框用于订单ID，第二个组合框用于型号id。以下是我需要的组合框功能的说明。最后，我附上了我目前的编码（完全无法工作...... T_T）。我正在通过adodc进行数据连接。

订单ID组合框：显示数据库中的所有数据，并显示数据网格中所选订单ID的数据

模型ID组合框：仅显示订单ID组合框中所选订单ID下的模型ID，然后在datagrid中显示最终过滤数据

例如：订单ID abc123包含5个型号ID（型号1,2,3,4和5）。首先从订单ID组合框中选择abc123（数据库中的所有订单ID将显示在组合框中），datagrid显示所有5个模型ID信息。接下来，在型号id组合框中，型号1,2,3,4＆amp; 5只显示，选择型号5，datagrid将显示数据网格中abc123和模型5的完整数据

Private Sub Form_Load()

Adodc1.Refresh
Adodc1.Recordset.MoveFirst`
With Adodc1.Recordset`

Do Until .EOF
    cboOrderID.AddItem ![Order_ID]
    .MoveNext
    cboModelID.AddItem ![Model_ID]
    .MoveNext
Loop
End With

End Sub

Private Sub cboOrderID_Click()

Dim index As Integer
index = cboOrderID.ListIndex
Adodc1.RecordSource = "select * from Purchaser where Order_ID='" & cboOrderID & "'"

With Adodc1.Recordset

    Do Until .EOF
         cboModelID.AddItem ![Model_ID]
         .MoveNext
     Loop
 End With

End If
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

Private Sub cboModelID_Change()

Adodc1.RecordSource = "select * from Purchaser where Order_ID AND Model_ID='" & cboModelID & "'"
Adodc1.Refresh
DataGrid1.Refresh
Adodc1.Recordset.MoveFirst

End Sub

VB6.0：如何通过组合框从数据库创建多个过滤器并在datagrid中显示过滤结果？

0 个答案: