|
Dim dt As DataTable = DataTables("表E")
dt.DataRows.Clear
Dim tbs() As String = {"表A", "表B", "表C", "表D"}
For Each tb As String In tbs
For Each xm As String In DataTables(tb).GetValues("姓名", "姓名 is not null")
Dim fdr As DataRow = dt.Find("姓名 = '" & xm & "'")
If fdr Is Nothing Then
fdr = dt.AddNew
fdr("姓名") = xm
End If
fdr(tb & "金额") = DataTables(tb).Compute("sum(金额)", "姓名 = '" & xm & "'")
Next
Next
|
加好友 
发短信
Post By：2016/2/15 11:26:00 [只看该作者]
