以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于数据填充的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48616)

--  作者:hrw68529
--  发布时间:2014/4/2 11:27:00
--  [求助]关于数据填充的问题
例子中有两个表,第一个表是“笔试成绩”,第二个表是“加权计算”。现在是想在“加权计算”的“数据填充”中写一段代码,要求是:1、如果“笔试成绩”表的“是否加权”为对号时,在“加权计算”中生成不重复的“天数、分组、加权分组、面试室”,同时在“加权计算”的“是否加权”也显示对号。怎么写,我用数据填充改了一段代码,但生成的是全部数据,“是否加权”不管是true还是false,全部填充过来了,怎么 改代码,谢谢。代码如下:
Dim f As New Filler
f.SourceTable = DataTables("笔试成绩") \'指定数据来源
f.SourceCols = "天数,分组,加权分组,面试室" \'指定数据来源列
f.DataTable = DataTables("加权计算") \'指定数据接收表
f.DataCols = "天数,分组,加权分组,面试室" \'指定数据接收列
f.Fill() \'填充数据

例子如下:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5_201404021120.zip



--  作者:有点甜
--  发布时间:2014/4/2 11:30:00
--  
Dim f As New Filler
f.SourceTable = DataTables("笔试成绩") \'指定数据来源
f.SourceCols = "天数,分组,加权分组,面试室,是否加权" \'指定数据来源列
f.DataTable = DataTables("加权计算") \'指定数据接收表
f.DataCols = "天数,分组,加权分组,面试室,是否加权" \'指定数据接收列
f.Filter = "是否加权 = true"
f.ExcludeExistValue = True
f.Fill() \'填充数据
[此贴子已经被作者于2014-4-2 11:37:29编辑过]

--  作者:Bin
--  发布时间:2014/4/2 11:35:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.foxdb


--  作者:hrw68529
--  发布时间:2014/4/2 11:38:00
--  
谢谢,管用,