- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]批量新增，详见附件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143012)
-- 发布时间：2019/11/11 21:36:00
-- [求助]批量新增，详见附件
此主题相关图片如下：图片2019.png
批量新增，详见附件
求大神帮忙
[此贴子已经被作者于2019/11/11 21:41:43编辑过]
-- 发布时间：2019/11/11 21:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.zip |
-- 发布时间：2019/11/11 22:02:00
--
一个按钮就可以了
Dim r As Row = Tables("表A").Current
If r Is Nothing OrElse r.IsNull("时间") Then Return ""
Dim min As Integer = r("时间").year
If min < 2000 Then min = 2000
Dim nr As DataRow
Dim lst As List(of String) = DataTables("表B").GetValues("年度","项目=\'" & r("项目") & "\'")
For i As Integer = min To Date.Today.AddYears(-1).Year
If lst.Contains(cstr(i)) Then Continue For
nr = DataTables("表B").AddNew()
nr("项目") = r("项目")
nr("年度") = i
nr("内容") = "已核"
Next
-- 发布时间：2019/11/12 19:24:00
--
谢谢蓝大神。
这个是新增的内容为已核，
按钮2，已有的数据里，内容列改为已核，怎么弄呢
[此贴子已经被作者于2019/11/12 19:28:57编辑过]
-- 发布时间：2019/11/12 20:34:00
--
参考：http://www.foxtable.com/webhelp/topics/1532.htm
-- 发布时间：2019/11/13 14:48:00
--
谢谢，ReplaceFor替换明明用过，有时候就是转不过来