Foxtable(狐表)用户栏目专家坐堂 → e.Sender.ComboList 列两列


  共有136人关注过本帖树形打印复制链接

主题:e.Sender.ComboList 列两列

帅哥哟,离线,有人找我吗?
Liangcai
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:233 积分:2096 威望:0 精华:0 注册:2011/9/24 13:30:00
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) & ")"
Next
请老师指教,谢谢!

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

 回到顶部
帅哥,在线噢!
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:74081 积分:371533 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:233 积分:2096 威望:0 精华:0 注册:2011/9/24 13:30:00
  发帖心情 Post By:2018/12/7 21:57:00 [只看该作者]

谢谢

 回到顶部