Dim dt As Date = new Date(Date.Today.Year, 1, Date.Today.Day) Dim filter As String = "1=2" For i As Integer = 1 To 11 filter &= " or 发货日期 = #" & dt & "#" dt = dt.AddMonths(1) Next Dim dr As DataRow = DataTables("A").Find(filter) If dr IsNot Nothing Then MessageBox.Show("有产品今天该发货了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Tables("A").Filter = filter MainTable = Tables("A") End If
加好友 
发短信
Post By：2014/11/10 10:24:00 [只看该作者]
