如何通过下拉菜单选定日期，将数据库数据调入表中？

horse00788

请高手们能出手援助！
      本人新手，不知道如何将数据库里的录单日期调入到查询的下拉框中，如何通过选定日期，调取数据库中相应日期里的数据到查询的相应表格中。还请高手们能不吝赐教！！1、如何通过查询表中的下啦菜单显示数据库中是录单日期，而且在数据库中重复的日期，在下拉菜单中不重复显示。
2、选定日期后点查询按钮，将数据库中的：商品名称、部件编号、型号、规格参数、单位、数量、提取到查询表中的相应列中。

orr89

楼主就不能把结果模拟一下，有几项直接猜不透哪些对应哪些。用字典记录行号，然后输出到调查表就行。

Yalishanda30

列标题都不一样，不知道你要查什么，附件是范例，使用SQL匹配

horse00788

谢谢您的帮助！只是我没吧请求说明清楚！
1、如何通过查询表中的下啦菜单显示数据库中是录单日期，而且在数据库中重复的日期，在下拉菜单中不重复显示。
2、选定日期后点查询按钮，将数据库中的：商品名称、部件编号、型号、规格参数、单位、数量、提取到查询表中的相应列中。

horse00788

orr89 发表于 2020-2-27 20:40
楼主就不能把结果模拟一下，有几项直接猜不透哪些对应哪些。用字典记录行号，然后输出到调查表就行。

谢谢您在百忙之中还能伸出援手，不厌其烦的回复！有一位老大为我写了一段代码，我修改了一下，但问题也出现了。1、选定日期后查询，同日期内的商品不能全部显示。
2、提取到查询表中的数据错位，不知如何改写代码？
3、如何利用下拉菜单显示数据库中录单日期，而且重复日期被过滤？
现将附件传给您，请求帮助！！为谢！！！

orr89

感觉就像接了一个单。话说我们这样真的好么，什么都写好了，求助者真的会研究么。虽然我也是菜鸟。
Private Sub Workbook_Open()
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheet2.Range("a1").CurrentRegion
    For a = 2 To UBound(arr)
        If Not dic.exists(arr(a, 2)) Then dic(arr(a, 2)) = ""
    Next
    Sheet3.Shapes("下拉框 4").ControlFormat.RemoveAllItems
    For x = 1 To dic.Count
        Sheet3.Shapes("下拉框 4").ControlFormat.AddItem dic.keys()(x - 1)
    Next
End Sub
Sub 查询()
    第几项 = ActiveSheet.DropDowns("下拉框 4").Value
    条件 = Sheet3.Shapes("下拉框 4").ControlFormat.List(第几项)
    arr = Sheet2.Range("a1").CurrentRegion
    ReDim brr(1 To UBound(arr) * 3, 1 To 9)
    n = 1
    For a = 2 To UBound(arr)
        If arr(a, 2) & "" = 条件 Then
            brr(n, 1) = arr(a, 8) '编码
            brr(n, 3) = arr(a, 9) '部件编号
            brr(n, 4) = arr(a, 10) '型号
            brr(n, 5) = arr(a, 11) '规格参数
            brr(n, 7) = arr(a, 12) '单位
            brr(n, 9) = arr(a, 13) '数量
            n = n + 3
        End If
    Next
    Range("e5:m10000").ClearContents
    [e5].Resize(n, 9) = brr
End Sub
Sub 更新日期()
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheet2.Range("a1").CurrentRegion
    For a = 2 To UBound(arr)
        If Not dic.exists(arr(a, 2)) Then dic(arr(a, 2)) = ""
    Next
    Sheet3.Shapes("下拉框 4").ControlFormat.RemoveAllItems
    For x = 1 To dic.Count
        Sheet3.Shapes("下拉框 4").ControlFormat.AddItem dic.keys()(x - 1)
    Next
End Sub

horse00788

orr89 发表于 2020-2-29 12:40
感觉就像接了一个单。话说我们这样真的好么，什么都写好了，求助者真的会研究么。虽然我也是菜鸟。
Privat ...

谢谢大佬的无私帮助！您不是新手，我崇拜您！！！