for each dr as datarow in dt1.Select("[xfsj] <= Date.Today() ) dim di as datarow = datatables("Zscj").addnew() for each dc as datacol in dt1.datacols di(dc.name) = dr(dc.name) next next
2楼
czy 发表于：2010/3/26 17:37:00
for each dr as datarow in dt1.Select("[xfsj] #" & Date.Today() & "#")