主题：[求助]代码！！

房源表的DataColChanged事件：

If e.DataCol.name = "状态" AndAlso e.DataRow("状态") = "已签约" Then
    Dim dr1 As DataRow = e.DataRow
    Dim dr2 As DataRow = DataTables("客户信息").AddNew()
    dr2("栋号") = dr1("栋号")
    dr2("房号") = dr1("房号")
    dr2("客户姓名") = dr1("定购姓名")
    dr2("面积") = dr1("面积")
    e.DataRow.Remove()
End If