| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移动数据到另外一个相同结构的表里面 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95305) |
| -- 作者：cyrollin -- 发布时间：2017/1/16 14:17:00 -- 移动数据到另外一个相同结构的表里面 想实现 数据回收库和还原的功能 |
| -- 作者：有点色 -- 发布时间：2017/1/16 14:46:00 -- 没必要这样做。在原来表格，加一列【是否显示】，如果勾选了，就隐藏起来。你加载数据的时候，也控制只加载显示的数据即可。 |
| -- 作者：cyrollin -- 发布时间：2017/1/16 15:26:00 -- 恩，以前也用过这个方法，但不科学，到时加载的数据很多。 还有恢复隐藏的某些数据时，还要显示全部数据来查找。 建立 回收站 还是方便些
|
| -- 作者：有点色 -- 发布时间：2017/1/16 15:31:00 -- 如果是单独一个表，就做一个结构相同的表，填充数据参考
http://www.foxtable.com/webhelp/scr/1533.htm
http://www.foxtable.com/webhelp/scr/2292.htm
如果要做适应所有表的，就弄一个表【表名】【数据】，数据合成比如这种格式 第一列=abc|第二列=123，还原的时候，分割字符串新增行。 |
| -- 作者：cyrollin -- 发布时间：2017/1/16 15:38:00 -- 恩恩， 我先试下 |
| -- 作者：cyrollin -- 发布时间：2017/1/17 16:59:00 -- If e.Col.name = "删" Then Dim Result As DialogResult Dim id As String id = e.Row("第一列") Result = MessageBox.Show("确定要删除 " & id & " ?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then Dim Cols1() As String = {"编号","第一列","第二列"} Dim Cols2() As String = {"编号","第一列","第二列"} Dim fdr As DataRow = DataTables("表B").AddNew Dim cr As Row = Tables("表A").current For i As Integer = 0 To Cols1.Length -1 cr(Cols2(i)) = fdr(Cols1(i)) Next e.Row.Delete() \'然后删除此行数据 Else Return End If End If 红色部分，为什么当前行数据没有从表A复制到表B呢？ |
| -- 作者：有点色 -- 发布时间：2017/1/17 17:03:00 -- Dim Cols1() As String = {"编号","第一列","第二列"}
Dim Cols2() As String = {"编号","第一列","第二列"}
Dim fdr As DataRow = DataTables("表B").AddNew
Dim cr As Row = e.Row
For i As Integer = 0 To Cols1.Length -1
fdr(Cols1(i)) = cr(Cols2(i))
Next
|
| -- 作者：cyrollin -- 发布时间：2017/1/17 17:22:00 -- 谢谢！如果复制到表B后，自动给表B的 删除日期列 填上删除的日期，应该在上面的next后面怎么写呢？ |
| -- 作者：有点色 -- 发布时间：2017/1/17 17:49:00 -- 以下是引用cyrollin在2017/1/17 17:22:00的发言：
谢谢！如果复制到表B后，自动给表B的 删除日期列 填上删除的日期，应该在上面的next后面怎么写呢？
fdr("日期") = Date.Now |