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

拷贝或移动列表框或组合框中的内容-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

Firefox OS模拟器4.0正式发布 支持模拟触摸事件 莫轻言已成功部署大数据,也许你离达标还相去甚远! 基于Java的四大开源测试工具 Firefox OS:称霸移动市场?我们的计划更长远! 支撑5亿用户、1.5亿活跃用户的Twitter最新架构详解及相关实现 传苹果为iWatch招兵买马 以确保明年发布新产品 降价高达1200元的Surface RT,并不值得你购买 Daux.io:开源的项目文档生成器 避免代码注释的五大理由 安徽农信:30人,13轮测试,完成日均270万笔交易的综合业务系统架构调整 研究员带来5D光存储技术:容量达360TB,寿命高于百万年 LSI闪存加速或助力互联网IDC自我设计与建设 怎样让用户从100涨到200万?硅谷创业教父如是说 大作修炼之道:就算是手游,也要搞点剧情吧! Java EE 8愿望清单:缺少这些,Java EE将不会完美 Surface Watch?传微软正测试搭载Win 8的智能手表 又一美国造?联想在美设厂制造产品 软件定义未来 2013 SDCC中国软件开发者大会全面开启 可以直接拿来用的15个jQuery代码片段 程序员最害怕的5件事 你中招了吗? 机器智商已达四岁:亲,是时候考虑你的饭碗了 读60行代码完成的NoSQL数据库,看数据库打造面临的挑战 聚焦全球移动市场:韩国,开放之后是春天? Github 终于开始认真考虑开源项目许可证了 雅虎发布今年第二季度财报 总营收为11.35亿美元 既然无法避免被GAE锁定,何不考虑其中的机遇并自力更生 19亿美金背后的分析:91为什么要卖?百度为什么要买? 直接拿来用!最火的iOS开源项目(三) 让代码飞一会儿,超级有用的CSS编码工具集 创业者如何在Demo演讲上打动投资人? 微软小打小闹的移动版Outlook Web App,会不会被用户抛弃? 帮忙解释一下implementation什么意思,有什么作用. A Question about ActiveForm and TabStop. 用于从INI文件中读字串的函数是什么?请示高手! 清問:Datareport實現不了的功能如何實現?清大蝦指教,謝謝! 检测下拉列表中批配项,有则选中 为什么DBGRID显示一片空白,记录应该取到了。代码如下: 谁有免费出国代理,急用。如果能有,马上给分 关于学习.net与j2ee的抉择问题,欢迎各位大侠热烈讨论!!! 求PHP代码,功能是:判断字符是否全部为汉字? 又是MSFlexgrid的问题!!!请大家帮忙~! ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 巨简单问题~~~ 进来有分,回答多分,不够再加!!! 关于关闭和启动数据库的问题,很急的!! java VS c#^-^ ?? 请进 寻求QuickReport3以上版本 for Delphi3 的源代码或者安装包? 請問哪大俠用過 ibm 的 bridge2java啊,我把Excel的所有類都導出來了,但它的QuickExcel.java文件還是運行不了, 为何往结冰的公路上撒盐? 海水结冰解冻后,会不会变成淡水?我在书上看见的,它说会.如果真的会,请简述下原因,不须长篇大论,对不起,说错了我说的是冰冻一些海水,再拿去其他地方解冻. 在积雪的路段上撒上盐后,即使在相同的气温条件下,融化成水的冰雪不再结冰了,这是为什么? 为何清除道路冰冻积雪时要撒盐 温度计的测量范围是多少到多少? 温度计有何作用,使用方法,如何查看. 大家都知道压强越抵,水的沸点越低.那如果把水放进太空那种真空环境 ,它的沸点是多少呢?又是以什么方式沸腾呢? 为什么海水结冰后,再融化可以变为淡水(如,北极冰山) 撒盐在水上能令水难结冰点吗?就这样 求压强与水的沸点的关系式. 海水和淡水结冰有什么区别 冬天在结冰的地上撒盐为什么可以防止水再结冰要用物理的知识,最好是熔化和凝固的知识 电子.光.会不会热胀冷缩?物体是由分子组成分子和原子组成,原子是由原子核和电子组成,物体能热胀冷缩,应该电子和原子核也能热胀冷缩,那光呢? 冬天为什么在道路上撒盐能让冰融化说说具体原理和知识, 海水与淡水的结冰温度相同吗? 真空度与水的沸点的关系表 为什么冰撒了盐后会溶化的更快? 海水冰冻后的冰块是淡水海水如果结成冰块,那这个冰块是不是可以食用,不会像海水那样水的来源爱斯基摩人的饮用水是十分珍贵的.他们需要到冰山上去取回冰来融化,才有水用.因为北冰洋 真空度与水的沸点的关系是直线关系还是曲线关系啊,化学实验要作图,做出来的数据描点后似曲线又非曲线,很纠结啊.如果能给条公式就更好了. 真空中水的沸点是级°C?rt 实验室蒸馏水装置温度计的作用是什么? 谁能提供水在不同真空度下的沸点? 冰冻的路面为什么要撒盐?目的是什么? 寒暑表的用途是什么 真空度为-0.08MPa时,乙醇的沸点是多少? 在结冰的道路上撒盐是为了降低冰的什么拜托了各位 一种青铜器重达832.84千克 高达133厘米 铜 锡 铅的比大约是85比12比3 而铜 锡 铅各是多少 请问在什么情况下水的沸点会降低 蜡烛和猪油凝固时是向下凹还是向上凸 为什么要用铜与锡合金制成青铜器物? 通常情况下水的沸点,凝固点: 为什么要向结冰的公路撒盐? 铜的比例越高,青铜器就越____ 什么情况下水的沸点会低于100摄氏度有两个为什么水的沸点不是100摄氏度、、一个是外界大气压小于一标准大气压、、还有一个不知道、、各位人士,,帮忙啊~~~ 人们往冰冻的路面上撒盐,这是为什么 制造青铜器在铜里加入锡是为什么? 一般情况下水的沸点能到达100摄氏度吗 小明同学点燃一支蜡烛,不小心蜡油溅到了手上,他啊的一声,发现蜡油在手上凝固,可手上却烫起了泡.请说明小明手上起泡的原因. 青铜器是哪三种金属的合金 A铜铁铝 B铜银铅 C金银铜 D铜锡铝 物质的热胀冷缩与分子有什么关系 蜡烛和蜡油有什么区别?蜡油能当蜡烛用么? 海水为什么不容易结冰啊? 气体热胀冷缩如何用分子的运动来解释? 点燃的蜡烛,蜡油会一滴滴地滴下来,这是蜡的什么过程;冷却后,蜡油又变成了蜡块,这是蜡油的什么过程.我是初2的学生,在物理上遇到有不懂的问题, 淡水和海水那种结冰快? 热胀冷缩是分子变大?分子会变大吗?还是别的什么? 水银温度计测量范围实验室里的水银温度计最大测量范围标记的是300℃,每小格代表温度2℃,但在80℃到300℃之间就省略了每小格2℃的标记,也就是说从80到300之间只有10小格的间隔,这是为什么? 在相同气温下,为什么水不再结冰了?针对这个问题,小明的猜想是:撒盐改变了水的凝固点.设计一个方案验证他的猜想是否真确? 为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验设计:为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验 一种铜,锡合金有质量78%的铜.余下的为锡,问这种合金的密度是多少? 一种青铜,内含铜88份,锡10份,锌2份.要炼制这种青铜600吨,需要铜.锡.锌个多少吨. 寒冷的冬天.雨雪天气的道路上往往会结冰.在道路上撒些盐能加快冰的溶化.说明其中的道理. 一块合金体,质量为m,体积为v.已知金的密度为P1,铜的密度为p2,求该合金体的含金量?含铜量?(表达式). 青铜是由铜,锡,锌按44:5:1熔制而成的.现在要炼制800千克青铜,需铜锡锌多少千克? 为什么冬天要在马路上撒盐来加快冰的溶解? 温度计的测量范围是 温度计正确的使用方法 为什么温度高时,物体的分子之间的空隙会胀大 温度计的测量范围寒暑表、水银温度计、气温计的一般量程,最大及最小刻度.不要最高限度,一般用的就可以了 温度计用法买了个水银的温度计,想通过口含的方式,早上起来测量基础体温,但是测量后,我该怎样消毒,以方便下次干净的使用?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn