- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复制后的行能不能放在母行下方？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29920)
-- 发布时间：2013/3/16 16:20:00
-- 复制后的行能不能放在母行下方？
用绘制功能，在单元格中加入按钮，单击后能克隆一行与母行一模一样的行，但如何实现复制后的子行能紧跟在母行下方？并与母行形成合并显示？
此主题相关图片如下：新增row定位.png
-- 发布时间：2013/3/16 16:21:00
--
例如上面，复制“北京的丁项目”后，此行应该跟在第5行北京的下方。
-- 发布时间：2013/3/16 16:40:00
--
用筛选怎么样？
-- 发布时间：2013/3/16 17:21:00
--
筛选不可能实现的：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:楼栋增减.table |
-- 发布时间：2013/3/16 17:54:00
--
感觉楼主的套路，还在Excel表格上，对数据库应用不太熟悉。
-- 发布时间：2013/3/16 18:32:00
-- 回复：（lsy）感觉楼主的套路，还在Excel表格上，对数...
谢谢您的批评。
确实，因为狐表，让我感觉到数据库的魅力，因为狐表，让我看到希望。现在对数据库的理解还停留在纸面上，只知道select from where 等，但具体应用还欠缺，我会一直坚持下去的，只因为有狐表！
-- 发布时间：2013/3/16 18:41:00
-- 回复：（程兴刚）筛选不可能实现的： ...
谢谢程版的热心指点，受教!
If e.Col.name = "增加楼栋" Then
Dim wz As Integer = Tables("设置").Position+1
e.Row.Clone()
Tables("设置").Current.Move(wz)
Dim drs As List(of DataRow) = DataTables("设置").Select("","[_SortKey]")
For i As Integer = 0 To drs.Count - 1
drs(i).BaseRow("_SortKey") = i
Next
MessageBox.Show("增加楼栋成功","恭喜")
End If
用到了current的Move方法和baserow，谢谢。