以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求表A的“表B日期列距今天数”列代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2132) |
||||
-- 作者:老有所乐 -- 发布时间:2009/3/17 23:40:00 -- 求表A的“表B日期列距今天数”列代码 表A的“表B日期列距今天数”等于当天减表B日期列的日期数,编号等于编号,谢谢!
[此贴子已经被作者于2009-3-17 23:55:08编辑过]
|
||||
-- 作者:czy -- 发布时间:2009/3/18 0:19:00 -- 差不多是这样吧 Dim dr1 As DataRow = e.DataRow Dim dr As DataRow = DataTables("表B").Find("编号 = \'" & dr1("编号") & "\'") Dim t As TimeSpan = Date.Today - CDate(dr("日期")) dr1("表B日期距今天数") = t.TotalDays |
||||
-- 作者:czy -- 发布时间:2009/3/18 0:46:00 -- 楼上代码应该加个判断 |
||||
-- 作者:老有所乐 -- 发布时间:2009/3/18 7:11:00 -- 不好意思,又搞得C版主深夜操劳。感谢感谢! |