- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139911)
-- 发布时间：2019/8/24 22:49:00
-- 求助
有2个表 员工资料表 和离职员工资料表 ，有个窗口 窗口中一个按钮 想单击这个按钮 实现 把 员工资料表里 一个逻辑列 是否离职 是 true 的复制到 离职员工表里
此主题相关图片如下：11111111.png
If e.DataCol.Name = "是否离职" AndAlso e.DataRow("是否离职") = True Then
Dim dr As DataRow = DataTables("离职员工资料").AddNew
For Each dc As DataCol In DataTables("离职员工资料").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
End If
[此贴子已经被作者于2019/8/25 21:37:51编辑过]
-- 发布时间：2019/8/24 23:53:00
--
按钮中不能用e.datarow的
-- 发布时间：2019/8/25 0:14:00
--
请问一下代码应该怎么改
-- 发布时间：2019/8/25 20:55:00
--
请贴出代码文字，而不是截图，别人才能改代码。至少我没有兴趣，也没有时间一个个敲您上面的代码字符
-- 发布时间：2019/8/25 21:37:00
--
If e.DataCol.Name = "是否离职" AndAlso e.DataRow("是否离职") = True Then
Dim dr As DataRow = DataTables("离职员工资料").AddNew
For Each dc As DataCol In DataTables("离职员工资料").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
End If
-- 发布时间：2019/8/25 21:44:00
--
dim r as row = Tables("离职员工资料").current
if r isnot nothing then
Dim dr As DataRow = DataTables("离职员工资料").AddNew
For Each dc As DataCol In DataTables("离职员工资料").DataCols
dr(dc.Name) = r(dc.Name)
Next
For Each dc As DataCol In DataTables("离职员工资料").DataCols
dr(dc.Name) = r(dc.Name)
Next
end if