|
Systemready = False
DataTables("minxi").StopRedraw
For Each dr As DataRow In DataTables("rukudan").Select("shuliang > 0 and name not in ('" & DataTables("minxi").GetComboListString("name").replace("'", "''").replace("|","','") & "')")
DataTables("minxi").deletefor("name = '" & dr("name").replace("'", "''") & "'")
For i As Integer = 1 To dr("shuliang")
Dim ndr As DataRow = DataTables("minxi").addnew
ndr("name") = dr("name")
ndr("danhao") = dr("rukudanhao")
ndr("id") = dr("_Identify")
Next
Next
DataTables("minxi").ResumeRedraw
Systemready = True
|
加好友 
发短信
Post By：2016/5/12 22:49:00 [显示全部帖子]
