- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 学生提问删除行的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59879)
-- 发布时间：2014/11/12 18:23:00
-- 学生提问删除行的问题
大师：好！有劳指导，如示例
问题：1、表b中如何删除姓名、年龄、职务、工资全不为空，且津贴或加班工资不为空的行？
2、如何将这些数据复制或导入到表a中
劳您大驾！帮助写一下代码如何？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目32.zip |
-- 发布时间：2014/11/12 19:16:00
--
Dim f As new Filler
Dim filter As String = "删除姓名 Is not null And 年龄 Is not null And 职务 Is not null And 工资 Is not null And (津贴 Is not null Or 加班工资 Is not null)"
f.SourceTable = DataTables("表B") \'指定数据来源
f.DataTable = DataTables("表A") \'指定数据接收表
f.Filter = filter
f.Fill() \'填充数据
DataTables("表B").DeleteFor(filter)
[此贴子已经被作者于2014-11-12 19:16:21编辑过]
-- 发布时间：2014/11/12 21:31:00
--
关键表b中的列名不知道呀？
-- 发布时间：2014/11/12 21:32:00
--
那你这样的表就是不合理的，没有任何意义。
-- 发布时间：2014/11/12 21:34:00
--
如果导入的这种表格，先用vba将前两行删除，再导入为临时表，再处理。
[此贴子已经被作者于2014-11-12 21:34:31编辑过]
-- 发布时间：2014/11/12 21:36:00
--
或者，先将数据存放到一个有表结构的临时表里暂存
-- 发布时间：2014/11/12 21:52:00
--
思路很好，主要是考虑到通用性问题。因为需要导入的表的结构并不知道，可以作为列名的在第几行也不知道。
狐表导入时需要增加一个表，导入为临时表，帮助的哪里，怎么不知道?
-- 发布时间：2014/11/12 21:55:00
--
呃，肯定要确定第几行是列名，才能做后续的工作啊。
获取到列的行，循环，生成临时表，然后把剩下的数据弄进去
http://www.foxtable.com/help/topics/0679.htm
-- 发布时间：2014/11/12 22:19:00
--
那现在表a就作为临时表，如何从表b中把数据弄进去？
我原来就是通过vba操作的，但太慢，作废了。
-- 发布时间：2014/11/12 22:21:00
--
以下是引用hbhb在2014-11-12 22:19:00的发言：
那现在表a就作为临时表，如何从表b中把数据弄进去？
那现在表a就作为临时表，如何从表b中把数据弄进去？
我原来就是通过vba操作的，但太慢，作废了。
生成表以后。
循环第三行各列，接着循环从第四行开始，分别取出各列数据赋值到生成的表里。