先看看:http://www.foxtable.com/webhelp/scr/1284.htm
For Each dd As String In DataTables("当前年度维护计划").GetValues("任务编号")
Dim dr1 As DataRow = DataTables("统计").AddNew()
dr1("任务编号") = dd
dim dr2 as datarow = DataTables("当前年度维护计划").find("任务编号='" & dd & "'","计划执行日期")
dr1("计划执行日期") = dr2("计划执行日期")
output.show(dd)
output.show(dr1("计划执行日期"))
Next