主题：自动增加行

参考这个：
http://www.foxtable.com/help/topics/2292.htm

 
代码大概为：
 
If e.DataCol.Name = "物品状态" AndAlso e.DataRow("物品状态") = "损坏" Then
    Dim dr As DataRow = DataTables("表B").AddNew
    dr("某列1") = e.datarow("来源列1")
    dr("某列2") = e.datarow("来源列2")
    dr("某列2") = e.datarow("来源列3")
End If