- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请狐师们帮个小忙 f.Filter = 后面不会了【已解决】 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1834)
-- 发布时间：2009/2/16 12:45:00
-- 请狐师们帮个小忙 f.Filter = 后面不会了【已解决】
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.SourceCols = "a,b,c,d"
f.DataTable = DataTables("表B")
f.DataCols = "a,b,c,d"
f.Filter = "[表A的a列] 不为空 ‘这段代码不会了
f.Fill() \'填充数据
[此贴子已经被作者于2009-2-16 15:28:30编辑过]
-- 发布时间：2009/2/16 12:56:00
--
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.SourceCols = "a,b,c,d"
f.DataTable = DataTables("表B")
f.DataCols = "a,b,c,d"
f.Filter = "DataTables("表A").datarows("a") isnot null"
f.Fill() \'填充数据
[此贴子已经被作者于2009-2-16 12:56:28编辑过]
-- 发布时间：2009/2/16 13:02:00
--
谢谢smileboy版主
-- 发布时间：2009/2/16 13:03:00
--
好象这样就可以了。
f.Filter = "[a列] isnot null"
-- 发布时间：2009/2/16 13:19:00
--
不行啊，提示错误
编译错误：End of statement expected.
错误代码：f.Filter = "DataTables("表A).Datarows("a") IsNot null"
-- 发布时间：2009/2/16 14:12:00
--
老师们，帮我呀～
-- 发布时间：2009/2/16 14:18:00
--
f.Filter = "[a] isnot null"
[此贴子已经被作者于2009-2-16 14:28:07编辑过]
-- 发布时间：2009/2/16 14:41:00
--
以下是引用菜鸟foxtable在2009-2-16 14:18:00的发言：
f.Filter = "[a] isnot null"
f.Filter = "[a] isnot null"
[此贴子已经被作者于2009-2-16 14:28:07编辑过]
还不行～
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2009-2-16 14:41:27编辑过]
-- 发布时间：2009/2/16 14:59:00
-- [求助]在foxtable里如何实现三个很重要的功能
f.Filter = "[a] is not null"
Or
f.Filter = "a is not null"
-- 发布时间：2009/2/16 15:14:00
--
以下是引用ybil在2009-2-16 14:59:00的发言：
f.Filter = "[a] is not null"
Or
f.Filter = "a is not null"
f.Filter = "[a] is not null"
Or
f.Filter = "a is not null"
给大家一个例子，用这个代码不行呀～
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.SourceCols = "a,b,c,d,e,f,g"
f.DataTable = DataTables("表B")
f.DataCols = "a,b,c,d,e,f,g"
f.Filter = "[a] isnot null"
f.Fill() \'填充数据
提示错误见8楼的图。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:study.table |
目的：做个按钮：把表A的1、3行等a列不为空的行一次性添加到表B中
[此贴子已经被作者于2009-2-16 15:18:27编辑过]