主题：[求助]实现自动填表

datacolchanged事件

If e.DataCol.name = "用车人" Then
    If e.newvalue = Nothing OrElse e.DataTable.datacols.contains(e.newvalue) = False Then
        e.DataRow("农科") = Nothing
        e.DataRow("佳运") = Nothing
    Else
        e.DataRow("农科") = Nothing        
        e.DataRow("佳运") = Nothing

        e.DataRow(e.newvalue) = e.DataRow("现金收入") + e.DataRow("应收帐款")
    End If   
End If