Dim drs AS List(of Datarow)
drs=Datatables("BPB量产电池").SELECT(filter2)
For Each dra As Datarow In drs '历遍drs
'Dim dc As Datacol=drs("产品名称")
Dim Drb As Datarow = Datatables("temp").AddNew()
drb("产品名称") = dra("产品名称") ‘这样试一试···
Next
或
Dim drs AS List(of Datarow)
drs=Datatables("BPB量产电池").SELECT(filter2)
For Each dra As Datarow In drs '历遍drs
Dim dc As string = drs("产品名称")
Dim Drb As Datarow = Datatables("temp").AddNew()
drb("产品名称") = dc ‘这样试一试···
Next
[此贴子已经被作者于2010-9-29 14:17:23编辑过]
加好友 
发短信
Post By：2010/9/29 14:16:00 [显示全部帖子]
