| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 提取数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157296) |
| -- 作者：a272797388 -- 发布时间：2020/10/11 16:38:00 -- 提取数据 同项目下，在表B里， 先把表A的数据打乱，然后把表A里性别为“男”的学生姓名列数据提取到表B的姓名列， 请问我下面的代码如何修改？ Dim cnt As Integer = DataTables("表A").DataRows.Count
Dim ids1 As New List(of Integer) \'用于存储洗牌前的位置 Dim ids2 As New List(of Integer) \'用于存储洗牌后的位置 For i As Integer = 0 To cnt -1 \'准备初始的牌 ids1.add(i) Next For i As Integer = 0 To cnt - 1 \'开始洗牌 Dim idx As Integer = ids1(rand.Next(0,ids1.count)) ids2.Add(idx) ids1.Remove(idx) Next Tables("表A").StopRedraw() DataTables("表A").ReplaceFor("选择",False) For i As Integer = 0 To 5 - 1 \'100为要抽取的行数 DataTables("表A").DataRows(ids2(i))("选择") = True Next Tables("表A").Filter = "[选择] = True" Tables("表A").ResumeRedraw() |
| -- 作者：有点蓝 -- 发布时间：2020/10/11 20:59:00 -- 参考：http://www.foxtable.com/webhelp/topics/1533.htm …… Tables("表A").Filter = "[选择] = True" Tables("表A").ResumeRedraw() For Each dr1 As Row In Tables("表A").rows Dim dr2 As DataRow = DataTables("表B").AddNew() dr2("姓名") = dr1("姓名") Next
|
| -- 作者：13796361423 -- 发布时间：2020/10/12 13:22:00 -- Tables("表A").Filter = "[选择] = True"
Tables("表A").ResumeRedraw() For Each dr1 As Row In Tables("表A").rows
Dim dr2 As DataRow = DataTables("表B").AddNew() dr2("姓名") = dr1("姓名") Next
请问这个命令执行完之后是把数据填到了最后新增行了， 请问能何能填到第一行啊， 还有 Filter = "[选择] = True"， 我要换一个性别列为“男”， Filter = "[性别] = 男"，这样对吗 |
| -- 作者：有点蓝 -- 发布时间：2020/10/12 13:48:00 -- 第一行?没看懂，截图说明一下 Filter = "[性别] = \'男\'"
|