专家坐堂-e.Sender.ComboList 列两列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  e.Sender.ComboList 列两列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127935)

--  作者：Liangcai
--  发布时间：2018/11/25 16:30:00
--  e.Sender.ComboList 列两列
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) & ")"
Next
请老师指教，谢谢！

[此贴子已经被作者于2018/11/25 16:43:37编辑过]

--  作者：有点甜
--  发布时间：2018/11/25 18:32:00
--

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("|")

--  作者：Liangcai
--  发布时间：2018/12/7 21:57:00
--
谢谢