上面的代码写得很不好,最好学一下基本类型和事件编程。
通常应该写在DataColChanged事件:
Dim r As dataRow = e.DataRow
Select Case e.DataCol.Name
case “第五列”
If r("第五列") = "母亲"
r("第六列") = r("第一列")
r("第七列") = r("第二列")
ElseIf r("第五列") = "父亲"
r("第六列") = r("第三列")
r("第七列") = r("第四列")
End If
End Select
这么久,也该系统学一下了,如果看帮助困难,可以看置顶的视频教程。
[此贴子已经被作者于2015/4/14 20:31:22编辑过]