表A的DataColChanged事件:
Select Case e.DataCol.name
Case "姓名"
If e.NewValue > "" Then
Dim dr As DataRow = DataTables("表B").Find("姓名 = '" & e.NewValue & "'")
If dr Is Nothing
dr = DataTables("表B").AddNew()
dr("姓名") = e.NewValue
End If
End If
End Select
不过没有必要,单独用统计工具生成一个统计结果表,快速准确,连代码都可以自动生成。
[此贴子已经被作者于2012-2-28 8:25:19编辑过]