主题：两列不能同时有数据

DataColChanged事件

Select Case e.DataCol.name
    Case "支出类别"
        If  e.DataRow.isnull("支出类别")=False Then
            e.DataRow("收入类别") = Nothing
            e.DataRow("收入") = Nothing
        End If
    Case "收入类别"
        If e.DataRow.isnull("收入类别")=False Then
            e.DataRow("支出类别") = Nothing
            e.DataRow("支出") = Nothing
        End If
End Select