这个代码在帮我指导一下，数据新增速度还是比较慢
Dim lst1 As New List(of DataRow) '无记录
Dim lst2 As New List(of DataRow) '有记录
If str="" Then
str="is_active ='1' "
Else
str ="is_active ='1' and [update_time] Like '" & str & "%' "
End If
If tbn="C_EI_ENTERPRISEINFO" Then
str=str & " and ent_manage_state_code<> 'E0804' and is_up_scale<'E4104' and enterprise_name Not Like '%删%' and enterprise_name Not Like '%测试%' and industry_type_code <>'E0411' "
End If
Dim p As WinForm.ProgressBar
Dim i1 As Integer=0
For Each dr As DataRow In DataTables(tbn).SQLSelect(str)
If DataTables( "dsj_" & tbn).Find( key & " = '" & dr(key) & "' ") Is Nothing Then '无记录
lst1.Add(dr)
Else '有记录
lst2.Add(dr)
End If
Next
'新增记录
Dim dri As DataRow
For Each dr As DataRow In lst1
dri = DataTables("dsj_" & tbn).AddNew()
For Each dc As DataCol In DataTables(tbn).datacols
dri(dc.name) = dr(dc.name)
Next
dri.save
Next
加好友 
发短信
Post By：2017/9/26 14:05:00 [只看该作者]
