Foxtable(狐表) → 用户栏目 → 专家坐堂 → 到期提示


  共有9858人关注过本帖树形打印复制链接

主题：到期提示
帅哥哟，离线，有人找我吗？
tungwun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		到期提示  发帖心情 Post By：2011/10/28 10:07:00 [只看该作者]

请问以下代码可否做到提示30天内所有到期的车牌号码?

Dim ids As String 
Dim cnt As Integer 
Dim nms As String 
For Each dr As DataRow In DataTables("车牌资料").DataRows 
   Dim dt As Date = dr("到期日") 
    If Date.Today.AddDays(30) = dt Then 
        cnt = cnt + 1 
        ids = ids & "," & dr("_Identify") 
        nms = nms & "," & dr("车牌号码") 
    End If 
Next 
If cnt > 0 Then 
     messagebox.show("有" & cnt & "车牌30日後到期,分別是: " & nms.Trim(",")) 
     Tables("车牌资料").filter = "[_Identify] In (" & ids.Trim(",") &")" 
End If
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/28 10:23:00 [只看该作者]

你搞得太复杂了。

 

Dim flt As String =  "到期日 <= #" & Date.Today.AddDays(30) & "#"

Tables("车牌资料").filter = flt

Dm nms as list(of String) = DataTables("车牌资料").GetUniqueValues(flt，"车牌号码")

messagebox.show("有" & nms.Count & "30日後到期，分别是：" & String.Join("|", nms.Toarray) )
 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4231 威望：0 精华：0 注册：2009/5/16 21:42:00 		代码没有做到30天内到期  发帖心情 Post By：2011/10/28 11:47:00 [只看该作者]

代码没有做到30天内到期资料 如今天2011-10-28至2011-11-26内资料?

代码中Dm写成Dim?
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/28 11:51:00 [只看该作者]

Dim flt As String = “到期日 >= #" & Date.Today & "# And 到期日 <= #" & Date.Today.AddDays(30) & "#"

Tables("车牌资料").filter = flt

Dim nms as list(of String) = DataTables("车牌资料").GetUniqueValues(flt，"车牌号码")

messagebox.show("有" & nms.Count & "30日後到期，分别是：" & String.Join("|", nms.Toarray) )
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询