| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 排序后添入表2 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60756) |
| -- 作者：xjc620 -- 发布时间：2014/11/30 20:31:00 -- 排序后添入表2 如何做到手动筛选出数据,一键按日期列排序后添入表2 |
| -- 作者：有点甜 -- 发布时间：2014/11/30 20:40:00 -- Dim t As Table = Tables("表1") Dim sCols() As String = {"列名1", "列名2", "列名3"} Dim dCols() As String = {"列名A", "列名B", "列名C"} For Each dr As DataRow In t.DataTable.Select(t.Filter, "日期列") Dim nr As DataRow = DataTables("表2").AddNew() For i As Integer =0 To sCols.Length -1 nr(dCols(i)) = dr(sCols(i)) Next Next |
| -- 作者：xjc620 -- 发布时间：2014/11/30 20:49:00 -- 这个还是把表1中所有数据添入了表2,我筛选后执行代码还是把所有的数据添入了表2 [此贴子已经被作者于2014-11-30 20:49:39编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/11/30 20:51:00 -- 就是你筛选后的啊，如果不是，肯定是你表名写错了，注意主表、窗口表写法的不同 |
| -- 作者：xjc620 -- 发布时间：2014/11/30 21:19:00 -- 老师这个是把行都添加进去了,怎么能单独把数据添加进去,如果表2行不够自动添加 |
| -- 作者：有点甜 -- 发布时间：2014/11/30 21:30:00 -- 添加肯定是要添加行的啊。
你的表不要留空白行，这样是不对的。 |
| -- 作者：xjc620 -- 发布时间：2014/11/30 21:31:00 -- 不留空行是不行的,因为用了代码,不留空行会出错 |
| -- 作者：xjc620 -- 发布时间：2014/11/30 21:40:00 -- 老师怎么把单独把数据添到表2,如果行不够自动增加行 |
| -- 作者：有点甜 -- 发布时间：2014/11/30 21:40:00 -- 以下是引用xjc620在2014-11-30 21:31:00的发言：
不留空行是不行的,因为用了代码,不留空行会出错
那就是设计有错，不可能有这种错。有错就要改正。 |
| -- 作者：xjc620 -- 发布时间：2014/11/30 21:45:00 -- 上次我记得你发过一次单独添加数据的代码,可找不到了,能再告诉我一下吗 |