比如代码
For i as integer = 1 to 4
Dim ndr As DataRow = DatataTables("雪莉").AddNew
ndr("英雄职业") = cm.text
ndr("材料") = dr("材料" & i)
ndr("数量") = dr("数量" & i)
Next
加好友 
发短信
Post By：2018/11/7 21:16:00 [显示全部帖子]
