[浏览完整版]
标题：请狐师们帮个小忙 f.Filter = 后面不会了【已解决】
1楼
mr725 发表于：2009/2/16 12:45: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 = "[表A的a列] 不为空 ‘这段代码不会了
f.Fill() '填充数据
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编辑过]
2楼
smileboy 发表于：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() '填充数据
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编辑过]
3楼
mr725 发表于：2009/2/16 13:02:00谢谢smileboy版主
4楼
czy 发表于：2009/2/16 13:03:00好象这样就可以了。
f.Filter = "[a列] isnot null"
f.Filter = "[a列] isnot null"
5楼
mr725 发表于：2009/2/16 13:19:00不行啊，提示错误
编译错误：End of statement expected.
错误代码：f.Filter = "DataTables("表A).Datarows("a") IsNot null"
编译错误：End of statement expected.
错误代码：f.Filter = "DataTables("表A).Datarows("a") IsNot null"
6楼
mr725 发表于：2009/2/16 14:12:00老师们，帮我呀～
7楼
菜鸟foxtable 发表于：2009/2/16 14:18:00f.Filter = "[a] isnot null"
[此贴子已经被作者于2009-2-16 14:28:07编辑过]
8楼
mr725 发表于：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编辑过]
9楼
ybil 发表于：2009/2/16 14:59:00 f.Filter = "[a] is not null"
Or
f.Filter = "a is not null"
Or
f.Filter = "a is not null"
10楼
mr725 发表于：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编辑过]