Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]动态列表项目问题


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

主题：[求助]动态列表项目问题
帅哥哟，离线，有人找我吗？
dqlgood
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：4399 威望：0 精华：0 注册：2011/7/5 9:38:00 		[求助]动态列表项目问题  发帖心情 Post By：2011/10/21 12:51:00 [只看该作者]

将最后5个不重复的数据加到ComboBox下拉菜单中如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/10/21 13:06:00 [只看该作者]

做个例表上来，具体说明问题。

 回到顶部
帅哥哟，离线，有人找我吗？
don
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00 		  发帖心情 Post By：2011/10/21 13:45:00 [只看该作者]

大概如此:
Dim n,n1,i As Integer
Dim Ls,Lb As String
Ls = DataTables("订单").GetComboListString("客户ID","","_Identify")
n = Ls.split("|").Length
n1 = iif(n > 4,n-5,0)

For i  = n1 To n-1
    Lb+ = "|" & Ls.split("|")(i)
Next

e.Form.Controls("ComboBox1").ComboList=Lb
[此贴子已经被作者于2011-10-21 13:48:13编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
dqlgood
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：257 积分：4399 威望：0 精华：0 注册：2011/7/5 9:38:00 		  发帖心情 Post By：2011/10/21 14:26:00 [只看该作者]

棒极了！谢谢！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05566 秒, 4 次数据查询