e.Sender.ComboList 列两列 Post By:2018/11/25 16:30:00 [只看该作者]
Dim Arys As List(Of String()) = DataTables("教工基本信息").GetValues("教工姓名|教工编号","离职日期 Is Null") For Each Ary As String() In Arys e.Sender.ComboList = IIF(Len(Ary(0)) = 2,mid(Ary(0),1,1) & " " & mid(Ary(0),2,1),Ary(0)) & "(" & Ary(1) & ")"