以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]表的数据传递  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76753)

--  作者:script
--  发布时间:2015/11/4 15:38:00
--  [求助]表的数据传递
 老师 我用下面代码 把员工表的 两列内容传递到本表 
Dim f As New Filler
f.SourceTable = DataTables("员工")
f.SourceCols = "部门,姓名"
f.DataTable = DataTables("QQUser")
f.DataCols = "部门,姓名"
f.ExcludeExistValue = True
f.Fill()
  
员工表里有个“状态”列  怎么才能控制状态列的内容是“离职”时  其这两列的内容不传递呢?

--  作者:大红袍
--  发布时间:2015/11/4 15:39:00
--  
Dim f As New Filler
f.SourceTable = DataTables("员工")
f.SourceCols = "部门,姓名"
f.DataTable = DataTables("QQUser")
f.DataCols = "部门,姓名"
f.ExcludeExistValue = True
f.Filter = "状态 <> \'离职\'"
f.Fill()

--  作者:script
--  发布时间:2015/11/4 15:46:00
--  
额 老师  还有个问题  就是 怎么用员工表的状态列 删除QQUser表的数据呢  
比如 我把员工表某行的状态列 改成"离职"  QQUser表里对应的也删除呢?

--  作者:大红袍
--  发布时间:2015/11/4 15:49:00
--  

直接删除不就是行了?

 

DataTables("QQUser").DeleteFor("部门 = \'" & e.datarow("部门") & "\' and 姓名 = \'" & e.datarow("姓名") & "\'")