Dim str As String = "" Dim Arys As List(Of String()) = DataTables("教工基本信息").GetValues("教工姓名|教工编号","离职日期 Is Null") For Each Ary As String() In Arys str &= IIF(Len(Ary(0)) = 2,mid(Ary(0),1,1) & " " & mid(Ary(0),2,1),Ary(0)) & "(" & Ary(1) & ")|" Next e.Sender.ComboList = str.trim("|")
加好友 
发短信
Post By：2018/11/25 18:32:00 [显示全部帖子]
