说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

拷贝或移动列表框或组合框中的内容-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
拷贝或移动列表框或组合框中的内容-VB资料

在做数据据库程序时,通常会要求用户将数据从一个列表框移动到别一个列表框中。下面的子程序可以让你轻松实现这一功能。同时还提供参数,指定操作是移动数据(不保留原数据),还是拷贝数据(保留数据的副本在原列表框或组合框中);并且还可以选择是全部移动或拷贝数据,还是只移动或拷贝用户选定的部分。

参数 值 说明
FromCtl 源列表框或组合框名 源列表框或组合框
ToCtl 目的列表框或组合框名 目的列表框或组合框
strMode 可选参数,默认情况下只拷贝选中的项目
- 移动选中的项目
ALL 拷贝所有的项目,不需选中
-ALL 移动所有的项目,不需选中

源程序如下:

Public Sub CopyComboList(FromCtl As Control, ToCtl As Control, Optional strMode As String)

On Error Resume Next

Dim intN As Integer

Screen.MousePointer = vbHourglass

If strMode <> "" Then
strMode = UCase(strMode)
End If

With FromCtl

If TypeName(FromCtl) = "ListBox" Then
For intN = .ListCount - 1 To 0 Step -1
If .Selected(intN) Or InStr(strMode, "ALL") Then
ToCtl.AddItem .List(intN)
ToCtl.ItemData(ToCtl.NewIndex) = .ItemData(intN)
If InStr(strMode, "-") = 1 Then
.RemoveItem (intN)
End If
Next
Else
For intN = .ListCount - 1 To 0 Step -1
ToCtl.AddItem .List(intN)
ToCtl.ItemData(ToCtl.NewIndex) = .ItemData(intN)
If InStr(strMode, "-") = 1 Then
.RemoveItem (intN)
Next
End If
End With

Screen.MousePointer = vbDefault

End Sub

IBM将向Google、英伟达等授权Power架构技术 人脑研究将推动下一代网络革命?从大爆炸到大收缩 H3C携手F5将“空转”数据中心变为“分布式数据中心” W3C小组发布Web存储API推荐标准 开发者必备的6款源码搜索引擎 闪亮登场:开发者制作图形图表所需的11款JS工具包 来自两位技术大牛的博弈:HBase或将制霸NoSQL? 应用改变世界 2013英特尔&#174;创新应用大赛火热开启 看13位CEO、创始人和高管如何提高工作效率 对首次购买智能手机用户而言,苹果吸引力并不大 Amazon Appstore面向Web应用开放 开发者可添加应用内付费功能 CSC收购成功转型的大数据初创公司InfoChimps 嘀嘀打车发展报告:成全球最大出租车调度平台 又摊上事儿了,Android的MasterKey再次出现bug 比特币挖矿必备工具 硬件性能大比拼 RDBMS vs. NoSQL:反派为什么会得以存活并发展壮大 帮助优化移动网站:谷歌发布新指南和PageSpeed Insights工具 增强Web可用性,你需要避免的七大设计错误 Python六大开源框架对比:Web2py略胜一筹 海外看中国:老外开发者间流传着的7件事儿 京东云峰:电商移动云平台背后的技术 初创公司DigitalOcean:55秒搭建一个云服务器 分布式系统事务原子性的非阻塞实现 IBM发布基于人脑特性设计的全新计算架构和编程语言 16款加速编码的HTML5在线工具 JFrog:开源项目的最大挑战是文档和许可 5个技巧打造完美用户体验,不到两年完成用户万到千万的增长 CDN未来的机遇和挑战 华为S12700全可编程交换机进一步挑战思科 OpenFient创始人:将平台创新进行到底 专访Ubisoft手游团队:“波斯王子”的时光机器 請問團隊開發同一個系統代碼該怎樣管理(包括開發中) 请问各位,SUN公司是怎么个盈利模式? 打包以后问题多多. 在sql中怎么不能插入毫秒级的数据啊 急!!!如何得到上一个页面的ID值 使用axis写web services,生成客户端出错 ejb不能执行的问题? 关于showModalDialog方法生成的窗口问题 关于网上邻居 在vb里调用我动态库的一个函数,结果发现在动态库中的局部变量未被正确初始化,这是为什么呢?其它语言都正常。 SQL Server的恢复(100分相送) 哪里有BoundsChecker下载!带注册码的!知道的进来!然后给100分!不知道的不要来! 如何在SQL 语句中加入参数? 如何统计服务器上面的session实例的个数 中病毒,症状:打开很多应用程序,系统无反应,运行金山毒霸,系统无反应;点击“开始”-“关机”-“重新启动”,死机! 这是scanf的漏洞吗? 哪一个网站可以很好地查图书资料? web service 及 net remoting中调用com组件问题 当老师了,教计算机,有哪个的小孩敢拿来让我教 当老师了,教计算机,有哪个的小孩敢拿来让我教 控件被其他控件覆盖 听说JFreeChart的文档都是收费的,哪位高人用的熟,整理一个说明拿来看看.小弟谢过了 那为师兄能详细的介绍以下javasmart怎么用吗? 想换心情! 求救,硬盘故障!!! 高手快来!!不知是什么错误!! 讨论架构 求救,硬盘故障!!! 从一个TQuery中的数据如何快速的存放到另一个表中? 创建临时表空间时出错了 VC6的命令行工具 unix下 oralce 8.0.5 连接unix 下8.1.6的问题 帮助中的一段话 关于delphi中类之间成员的访问问题 请教一条sql语句 IE 不能正常浏览applet? SQL语句的简单问题 求救!树形菜单,请高手赐教 求救!!谁有写过安全策略方案,给个模板呀? winrunner怎么获取工具条中的按钮对象? 这个update为什么报错?该如何改? 招兼职图片程序员 请大家帮帮忙,简单(送分) 如何在web.config中设置验证登陆??????? 非常奇怪的编译问题 .NET的平台怎么搭建! 退格键的ASCii码值是多少?急。。。。。。。。。。。 请教大家个问题 如何用php下载文件? 求能够交替显示不同颜色的行的表格控件,十万火急! 如何将SQL SERVER 2000中的两个表连接在一起,且其中的记录是一对多? 英语翻译这句话的意思是什么哦? before 同义词 Soudain elle est devant moi,med lunettes à la main.Alors,je les ai remises.请问后面那句是啥意思后面那句完整的句子是:je les ai remises et jèai vu son sourire. 有种手机英语简称是叫H T C, 求慎小嶷十天突破雅思口语文本RT,只要文本, 求 慎小嶷的十天突破雅思口语和 写作 PDF文档和MP3~ sapim辐条和DT辐条哪个更强些呢? 不无骄傲的近义词是什么 匡威上印着MADE IN CHINA?我在本地大商场的匡威专卖店里买了条裤子,上面印着MADE IN CHINA,匡威不是美国的么,我这条是真是假啊?能不能过海关啊?小弟见识肤浅,请高手指点.谢谢 急求所有以黄字结尾的四字词语!只要是以黄字结尾的所有词语(成语也行)就行了.要正确 不无骄傲的反义词是什么 美国十年逾百起医院枪击事件 FBI探利比亚枪手狂劫五千万美元演员有怪癖 只爱演死尸纽约手机可接收紧急警报捐肾牵良缘 悲剧变喜剧四条眼镜蛇盘绕 “守护”婴儿午睡印度高官建议用阉割强奸犯方法遏制强奸世行营商环境排名遭质疑公务报销作假引发公众愤慨 加拿大政府奥巴马考虑停止窃听盟国领导人泰国前总理阿披实被控谋杀你们,“Duang”得不太厚道德媒预测欧冠晋级概率:拜仁多特希望大辽媒:哈达迪不冷静难赢比赛 被反超气中国首支维和步兵营先遣分队启程 飞赴推进开放创新和现代产业体系建设实现新路特斯车队签约26岁女车手 金发美女为避免恶意炒作 未来三天马朱两人都不老虎变宠物是公共治理的尴尬刘永灼:里皮前年世俱杯就想退 未来或军队演习后晒问题成时尚 搞噱头有百害轻信代购车票短信女子被骗800元虫慌韩囧绝品天书带着系统成篮神凶罪迷城:血钥侦缉档案气运之主捉鬼游戏秦岭秘事网游之魅影妖姬网游之深渊逍遥神珠锦绣天府塔旅游秦堰楼旅游老君阁旅游月城湖旅游四川美术展览馆旅游海棠公园旅游嘉定坊旅游万仙楼旅游圣堂山旅游林屋洞旅游瀛洲公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘