主题：[求助]关于表按日期自动加载，求助老师帮忙！！！！

表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

不过没有必要，单独用统计工具生成一个统计结果表，快速准确，连代码都可以自动生成。

关于表B加载表A的数据，可以看看《开发指南》下的《动态加载》。

不过既然统计工具很好，就用统计工具吧，你可以做个按钮，单击这个按钮，自动生成统计结果就行。