主题：求助

有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

按钮中不能用e.datarow的

请问一下代码应该怎么改

请贴出代码文字，而不是截图，别人才能改代码。至少我没有兴趣，也没有时间一个个敲您上面的代码字符

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

dim r as row = Tables("离职员工资料").current