主题：两列的值相互转换

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

字段全部设为string 你可能设置为数字了吧