主题：狐爸,如何判定两列数字的单双,或者奇偶?

DataColChanged 事件

If e.DataCol.Name ="奇偶" Then

   Dim dr As DataRow = e.DataRow

   If dr("奇偶") Mod 2 =0 Then

      dr("第一列") = 0

      dr("第三列") = dr("第二列")*2

   Else

      dr("第三列") = dr("第一列")*2

      dr("第二列") = 0

   End If

End If

 

 必须增加辅助列，否则奇偶列无法修改数据！

 

晕，手机回复空格、换行都没有了！