| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 数据填充 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61840) |
| -- 作者：xjc620 -- 发布时间：2014/12/20 10:28:00 -- 数据填充 怎么把表1中选中的行(包括选中多行)添加到表2,另外表2里面有一个日期列,在表1填充表2里数据增加行时,日期列自动添入当前日期,怎么做 [此贴子已经被作者于2014-12-20 10:30:41编辑过]
|
| -- 作者：Bin -- 发布时间：2014/12/20 10:30:00 -- http://www.foxtable.com/help/topics/1533.htm 为该列赋值为 date.today即可
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/12/20 10:38:00 -- 第二个问题参考： http://www.foxtable.com/help/topics/0630.htm
|
| -- 作者：xjc620 -- 发布时间：2014/12/20 10:47:00 -- 小白,有些还是没有看明白 |
| -- 作者：狐狸爸爸 -- 发布时间：2014/12/20 11:22:00 -- 再看一下这个： http://www.foxtable.com/help/topics/1597.htm
结合： http://www.foxtable.com/help/topics/1533.htm
应该就会了，你先研究一向，不会再说话 |
| -- 作者：狐狸爸爸 -- 发布时间：2014/12/20 11:24:00 -- 两个知识点组合起来就是:
Dim Cols1() As String = {"来源列一","来源列二","来源列三"} With
Tables("表1") Dim dr2 As DataRow = DataTables("表2").AddNew()
|
| -- 作者：xjc620 -- 发布时间：2014/12/20 12:38:00 -- 我这样加入了一个删除选中行的代码,但为什么选中多行时,却一次删除不彻底,比如选中5行,执行下代码,最后应收款里面选中的行删除的却是3个,有时2个,不知道什么原因 Dim Cols1() As String = {"车号","姓名","车型","电话","摘要","应收金额"} Dim Cols2() As String = {"车号","姓名","车型","电话","摘要","已付金额"} With Tables("应收款") For y As Integer = .TopPosition To .BottomPosition Dim dr1 As Row = .Rows(y) Dim dr2 As DataRow = DataTables("已付款").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next .Rows(y).Delete Next End With
|
| -- 作者：xjc620 -- 发布时间：2014/12/20 15:37:00 -- 顶 |
| -- 作者：Bin -- 发布时间：2014/12/20 15:48:00 -- 删除要反过来删 |