红色的字段赋值代码走不通，该怎么改？
For Each dr As DataRow In drs
Dim r As Row =Tables("TJ_Ent_info").AddNew()
Dim nms() As String ={"enterprise_id","enterprise_name","reg_address","ent_manage_state_code","industry_type_code","is_up_scale","ent_scale","dept_id","prod_address","legal_repr","contact_tel","principal","principal_mphone","principal_lphone","emp_num","specia_num","GRID_ID","AREA_ID","proddist_code","INDUSTRY_REGULATION_DEPT","AAB001"}
For Each dc As String In nms
r(dc)= dr(dc )
Next
'r.save()
Next
[此贴子已经被作者于2018/8/1 9:21:39编辑过]
加好友 
发短信
Post By：2018/8/1 8:37:00 [只看该作者]
