- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]批量有效期延期实现【已解决】 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64597)
-- 发布时间：2015/2/25 10:25:00
-- [求助]批量有效期延期实现【已解决】
[求助]批量有效期延期实现
一个证件管理窗口 新建一个延期控件 选择的行 通过延期控件延期 延期控件的代码怎么编制如图：
此主题相关图片如下：qq图片20150225103216.png
[此贴子已经被作者于2015/2/25 14:02:41编辑过]
-- 发布时间：2015/2/25 10:26:00
--
所谓的延期是什么意思? 日期增加?
那直接把 日期列的值往后加就好
dr("日期")=dr("日期").adddays(10)
-- 发布时间：2015/2/25 10:35:00
--
我补图了 文本控件或日期控件 代码怎么编制 做的窗口是文本控件也就是按天，或直接改到需要日期就涉及日期控件
-- 发布时间：2015/2/25 10:35:00
--
选择的行，指怎样选择？
-- 发布时间：2015/2/25 10:45:00
--
我是用查询出来的数据 通过系统表自带的左上角全选
-- 发布时间：2015/2/25 10:47:00
--
For Each r As Row In Tables("表A").Rows
r("日期") = cDate(r("日期")).AddDays(Forms("窗口1").Controls("TextBox1").Text)
Next
-- 发布时间：2015/2/25 11:08:00
--
这段代码是放在确定控件上还是主窗口代码啊
在请教下表中有个到期日期 和发证时间 以及有效天数 其中有效天数列 表达式怎么算 直接减没用
此主题相关图片如下：q32.png
-- 发布时间：2015/2/25 11:09:00
--
代码放在确定按钮中，表名、列名、控件名，自己改正确来。
有效天数，参考 http://www.foxtable.com/help/topics/1452.htm