具体代码,参考
Dim dic As new Dictionary(Of String, String)
For Each c As Col In Tables("统计_Table1").Cols
dic.Add(c.Caption, c.name)
Next
systemready = False
For Each dr1 As Row In Tables("统计_Table1").rows
Dim dr2 As DataRow = DataTables("统计").AddNew()
For Each c As Col In Tables("统计_Table1").Cols
dr2(c.name) = dr1(dic(c.name))
Next
dr2("日期") = e.Form.controls("日期").value
Next
systemready = True