主题：当A列的数据是“出售”时，那么B列等于A列

DataColChanged事件

If e.DataCol.Name = "A" AndAlso e.DataRow("A") = "出售" Then

    e.DataRow("B") = e.DataRow("A")

End If