| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]数据填充器代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132903) |
| -- 作者：hanzhang98 -- 发布时间：2019/4/1 20:50:00 -- [求助]数据填充器代码问题 老师晚上好！ 已知变量Ly1的值为“离职原因”、变量Ls1的值为“离职时间”。在用“数据填充器”复制“员工信息”表指定列到“历史信息”表的同时，将两个变量值也填充到“历史信息”表的“离职原因”、“离职时间”列，下面的代码要如何修改，请老师帮助。谢谢。 Dim f As New Filler f.SourceTable = DataTables("员工信息") \'指定数据来源 f.SourceCols = "姓名,性别,民族,政治面貌" \'指定数据来源列 f.DataTable = DataTables("历史信息") \'指定数据接收表 f.DataCols = "姓名,性别,民族,政治面貌" \'指定数据接收列 f.Fill() \'填充数据 "历史信息"表的全部"离职原因"列 = ly1 ’这两句代码不会 "历史信息"表的全部"离职时间"列 = ls1 |
| -- 作者：有点蓝 -- 发布时间：2019/4/1 21:12:00 -- Dim id As Integer = DataTables("历史信息") .Compute("max(_Identify)") Dim f As New Filler f.SourceTable = DataTables("员工信息") \'指定数据来源 f.SourceCols = "姓名,性别,民族,政治面貌" \'指定数据来源列 f.DataTable = DataTables("历史信息") \'指定数据接收表 f.DataCols = "姓名,性别,民族,政治面貌" \'指定数据接收列 f.Fill() \'填充数据 DataTables("历史信息").ReplaceFor("离职原因",ly1,"_Identify >" & id) DataTables("历史信息").ReplaceFor("离职时间",ls1,"_Identify >" & id)
|
| -- 作者：hanzhang98 -- 发布时间：2019/4/1 21:27:00 -- 谢谢老师帮助和指导。老师辛苦。 |