以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 选取不存在的日期怎么写? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159658) |
-- 作者:beifang -- 发布时间:2021/1/3 21:42:00 -- 选取不存在的日期怎么写? 每个月每天都需要上报订单,如果忘记了,可以进行补录,补录的时间区间是今天之前以及上个月没有录入的日期,比如今天是1月3日,可以补录本月3号之前以及上个月没有录入订单的日期。 我想将这些日期筛选出来作为combobox的下拉选项,代码该怎么写?谢谢老师了! |
-- 作者:有点蓝 -- 发布时间:2021/1/3 21:57:00 -- Dim lst As new List(of Date) Dim d As Date = Date.Today.AddMonths(-1) Dim nd As Date = d Do While d < Date.Today lst.Add(d) d = d.AddDays(1) Loop For Each s As String In DataTables("表A").GetValues("日期","日期 >= #" & nd & "#") lst.Remove(cDate(s)) Next Dim lst2 As new List(of String) For Each d In lst lst2.Add(Format(d,"yyyy-MM-dd")) Next Dim cmb As WinForm.ComboBox cmb = Forms("窗口1").Controls("ComboBox1") cmb.ComboList = String.Join("|",lst2.ToArray) |
-- 作者:beifang -- 发布时间:2021/1/5 10:22:00 -- 谢谢老师,非常感谢! |