For Each r1 As DataRow in DataTables("产品").Select("选择 = True")
Dim r2 AS DataRow = DataTables("订单").AddNew
r2(“订购日期") = Date.Today r2("订单编号") = r1("订单编号")
End if
加好友 
发短信
Post By：2012/5/17 15:24:00 [显示全部帖子]
