主题：两列的值相互转换

新项目在开发阶段BOM不确定，常发生设计变更，将新项目产品的BOM表设计成如下列

材料代码      材料名        是否用替代料      替代材料代码     替代材料名

233456      RP334        （逻辑列）         334556          ND7568

希望点击逻辑列后，逻辑列左右两列的值互换

材料代码      材料名        是否用替代料      替代材料代码     替代材料名

334556      ND7568                            233456          RP334        

求助代码如何写！

Dim A,B,C,D As String
表的DataColChanged 事件:

If e.DataCol.Name = "是否用替代料" Then '如果用替代料列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        A= e.DataRow("材料代码")
        B= e.DataRow("材料名")
        C= e.DataRow("替代材料代码")
        D= e.DataRow("替代材料名")
        e.DataRow("材料代码")=C
        e.DataRow("材料名")=D
        e.DataRow("替代材料代码")=A
        e.DataRow("替代材料名")=B
    End If
End If

谢谢3楼，试了，报错。

Hi, 还是你的对。如果不用逻辑列判断，用双击"替代材料名",方法，将两列互换位置，并且点击可以往返，可以实行吗？

太棒了，谢谢！