主题：不知能否实现日期的这种下拉显示

如果是access、内部数据源，这样写

控件.ComboList = DataTables("订单").SQLGetComboListString("format(日期列, 'yyyy-MM')")

查询的时候，截取年、月，然后合成条件，如

Dim ary() as string = 值.split("-")

Dim d  As Date = New Date(ary(0), ary(1), 1)

Tables("表A").Filter = "日期列 >= #" & d & "# and 日期列 < #" & d.AddMonths(1) & "#"

老师代码是不是有问题？

我照着抄，下拉不出值，把SQLGetComboListString改为 GetComboListString，提示 无法找到列 format(出库日期。

必须要用 SQLGetComboListString，不能用 GetComboListString。

否则，你就必须循环每一行，转换成年月的形式，再赋值给下拉。

sqlserver数据源这样写

控件.ComboList = DataTables("订单").SQLGetComboListString("CONVERT(VARCHAR(7),日期列,120)")

可以下拉了

但下拉的年月没有排序，想按日期排序

我写成  DataTables("订单").SQLGetComboListString("CONVERT(VARCHAR(7),出库日期,120)",,"出库日期")

又不出值了。

还是写代码吧

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("订单").Select("", "出库日期")
    Dim str As String = format(dr("出库日期"), "yyyy-MM")
    If ls.Contains(str) = False Then
        ls.add(str)
    End If
Next
msgbox(String.Join("|", ls.ToArray))