Dim Cols1() As String = {"Chinese_Name","English_Name","Personnel_Classify_Department","Personnel_Classify_Position","Company"}
Dim Cols2() As String = {"Chinese_Name","English_Name","Department","Position","Company"}
Dim lst1 As new List(of DataRow)
Dim lstname As new List(of String)
For Each dr1 As DataRow In DataTables("员工").Select("[Personnel_Classify_Category] = '间接' And [Status] = 'Onduty'")
If DataTables("通讯录").Find("Chinese_Name='" & dr1("Chinese_Name") & "'") Is Nothing AndAlso lstname.Contains(dr1("Chinese_Name")) = False
lst1.Add(dr1)
lstname.Add(dr1("Chinese_Name"))
End If
Next
For Each dr As DataRow In lst1
Dim dr2 As DataRow = DataTables("通讯录").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr(Cols1(i))
Next
Next
加好友 
发短信
Post By：2017/6/17 14:56:00 [显示全部帖子]
