DataTables("例子一").DataRows.Clear() '清除所有行
For Each s As String In DataTables("例子三").GetValues("产品")
Dim dr As DataRow = DataTables("例子一").AddNew()
dr("产品") = s
Next
加好友 
发短信
Post By：2014/3/31 20:37:00 [显示全部帖子]
