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

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

为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 重塑品牌 RIM更名黑莓 发布BlackBerry 10移动操作系统及新手机 NoSQL依赖的不只是大数据 还有应用程序架构的改变 新一代Apple TV增强内在组件 外观不变 加速Web开发的7款知名HTML5框架 Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 解读DuckDuckGo搜索 百万点击也敢叫板Google 开发者成功学:扔掉你那些很sexy的想法 VMware严控ESXi API 引发用户和ISV被绑架担忧 布局O2O Facebook推出实物礼品卡 iSuppli:微软Surface RT实际销量远低于出货量 业界前三甲:App Store两个刷榜者,站了出来 极客无极限 一行HTML5代码引发的创意大爆炸 将服务器“弃”之荒野? 微软玩转露天数据中心 Dropbox:我们现在关注“内容” 而不仅仅是文件存储 访Teradata Aster Mayank Bawa:抛弃无效数据,让分析走向大众化 谷歌Chrome或新增通知中心 与Google Now整合 急!在线等!Excel文件导入的问题。找不到可安装的ISAM 结识搞PHP的朋友 关于cell组件 郁闷当中,谁能给个用vb做DLL然后在DLL中增加数据库记录,在asp调用的例子。 singleton模式实现的问题 100分 谁讲一下定点数和浮点数的区别 急急急.请各位大虾帮帮忙啊! 請問語句的意思,謝謝 (Oracle8i)以SYSMAN登录控制台 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? TX DATA SOURCES 數據源問題? 数据得导入和导出 KHS,NaCl,NaHSO4,Na2CO3,分别属于什么.钠盐:酸式盐:无氧酸盐:含氧酸盐:用以上四种物质填空 为什么断路器处于合位时地刀必须分开 地刀可以遥控吗 我亲爱的爸爸作为联合国军事观察员,在执行维和任务中壮烈牺牲(缩句)亲爱的爸爸作为一名联合国军事观察员,在执行维和行动中壮烈牺牲(缩句) 1脱脂乳2白砂糖3乳酸亚铁4维生素A5维生素D第一题,属于营养素的有哪些?填序号.第二题,以上什么物质可以补充铁原素?填序号 断路器的N极为什么要设计成先合后分? 悠悠球雪鳞锋多少钱 三个完全相同的玻璃缸装满水,其中A只有水,B里漂浮这一只小鸭子,C水中漂浮着一只大鸭子,求它们的质量若把他们放到台秤上称量,可知他们的质量( )A (a)最大 B (b)最大 C (c)最大 D 一 模仿《一只贝》的作文 400字作文 一个质量为45Kg的中学生的重量是多少N 河里有4只大鸭子,5只小鸭子.后来走了5只鸭子,走的鸭子中至少有几只小鸭子? 擦过干了的油漆的抹布,油漆没擦下来,抹布还能在擦桌子吗,会不会通过皮肤吸入苯,抹布还能再用吗? 今天有买了iPhone5S的吗?我也想也买一个也,但是我更期待iPhone6哦!iPhone5S的绯闻已经穿了很久,今天在易迅网终于看了他的庐山真面目了,还有iPhone5C,也不错哦,现在很纠结,我又想买5S,又想以后买6 若大鸭子5元1只,中鸭子3元一只,小鸭子1元3只.用100元能分别买大、中、小鸭子各多少只(要求每种至少买一只)的方案. 湿的抹布擦桌子为什麽比干的擦得乾净? 南朝四百八十寺 多少楼台烟雨中反映了什么现象出现了哪些文化成就这些成就在今天还有什么意义 宇宙大爆炸主要的依据是什么 该怎么引诱老鼠我们宿舍出现了老鼠,该怎么引出来?又该怎么毒它? C++构造函数不能有返回类型定义一个圆柱体类模版,数据成员有圆柱体底半径,圆柱体高,成员函数有带参数构造函数,求圆柱体体积函数,求圆柱体表面积函数,要求成员函数在类外定义,主程序测 请问宇宙大爆炸的三个科学事实是什么啊 《一只贝》是谁写的急急急 “南朝四百八十寺,多少楼台烟雨中.”它反映南北朝时期的什么现象?这现象在文化方面有哪些相关的文化成就这些成就在今天还有什么历史意义? 红色海绵球魔术怎么变的就是用手在桌上把一个红色海绵球在中间撵几下,变成两个,两个变三个,手里握出一大把来,十多个,怎么回事 单位让自己确定企业年金的缴费比例,最高10%,请问一下企业年金缴费比例越高越合适吗?如果辞职以后怎么办 山寨的意思. 僵组什么词 企业年金缴费比例是多少? 求视频:自制验电器 材料:玻璃杯、细线、铝箔、塑料笔杆(如何弄)急 我想知道到,我在此先感谢你们了2K 仿写 一只贝 甲酸甲酯能和氢氧化钠反应吗 用下面的字组词 勉( )( )( )( )( ) 僵( )( )( )( )( ) 谁知道一只贝是谁写的 如何拆解冰魄悠悠球轴承上星期刚买了个冰魄回来,正想用ZIPPO清洗一下轴承,怎知轴承的另一边镶嵌死了在球上,自己又不敢用蛮力拆,希望有经验之士指教一下. 2K+ 中2的意思 给下列字换偏旁组成字,再组词:僵、例. 甲酸甲酯和氢氧化钠的水解反应中那个氢和氢氧化钠反应?为啥不是左面的氢啊? 怎样可以减少静电 加偏旁,组成新字,并组两个词.僵 感 既 () =>{}放入构造函数中是什么意思? 两质点间只有内力,角动量是否改变 我想买个iPhone5s.现在iPhone6要出来了.您会降的.我到底现在买还是等iPhone6出来再买. 究竟什么叫化合价?究竟什么叫化合价呀?化合价的概念是什么?我理解了好久,还是理解不出.希望有一些简明清楚的文字能够使我理解. 既然相对质心静止的参考系是零动量参考系,那么对于这样的参考系,角动量是否也恒为零(或者恒不变)? 我是买iphone5S呢?还是等iphone6出来买iphone6有没有人能告诉我啊最好分析的详细一点!我现在很郁闷啊! 到底什么是化合价? 零动量参考系是什么 山寨什么意思嘛 65要多重才算标准? 初动量为0的系统质心位置变化吗?初动量不为零的系统质心运动情况如何? 山寨意思 怎样选择调节系统中变送器的量程? 英语翻译 :总之世界上没有任何东西比光的传播速度更快 山寨有什么含义?现在很流行这个词语.最好有些例子 假如大气中没有灰尘中,我们将面临怎样的情形呢?运用了什么说明方法 僵怎么组词 填空怎么写 今天要 急 1+1等于几的笑话 哪里能下载《探索发现之宇宙大爆炸》 花王纸尿裤区分?1、日本本土花王;2、在中国销售的日本原装进口花王(包装侧面贴有中文的一张标签,其他地方均日文);3、台湾版花王、4、香港版的花王;以上几种花王,都有什么区别?产地 世界上有多少个国家和地区,多少个独立主权国家,其中联合国有多少个会员国,有几个常驻联合国观察员?具体的数量? 日议员拟提建设赌场法案 称为东京奥运美一女老师横尸树林 14岁男孩涉嫌谋浙江舟山船员供需不平衡 高级船员求职临海户外休闲用品业蓬勃发展 企业家盼报告称朝鲜核试验场挖新坑道 短期内不美国研究人员观测到最古老银河 距今约美“杀光中国人”节目在强烈抗议声中悄泰国东北部车祸致21人死亡被“假寡妇”咬会丧命 英国中学因毒蜘意大利假红酒每支7千欧元 工艺蒙骗酒美媒称美巴首脑会谈显示两国“离婚”情英国一大学网上“卖”学位 小狗付钱也日本老人被骗百万日元 “东京奥运门票白宫官员因网上匿名“吐槽”遭解雇马来西亚水坝泄洪引发水灾 3死3失踪韩国欲开设首个裸体海滩 以吸引外国游美俄防长将定期就安全问题进行视频协商奥巴马频接监听\"投诉\" 向默克尔安倍被指焦头烂额 年内或完不成集体自日执政党就修宪存在分歧 公明党称需获强台风逼近日本 东电加紧转移福岛核电韩媒:金正恩携妻拜谒锦绣山太阳宫 金冬至不吃咋行?咋吃才行旅游总评榜晋级赛﹃火力全开﹄福建又添一上市公司 *ST兴业从上海绿化树腐烂路人忧心朝鲜悼念金正日逝世两周年商家口中的天然鲈鱼 竟是养殖的时报体育频道利器维修难不倒老师傅遇“仙人跳”六旬汉被偷2万元以居住地登记户口 别附加太多条件行道树根部被封死行道树被挂广告牌 市民觉得“煞风景”数说跨越辅道堆满垃圾行人无法通行数说发展敖江塘坂点位水质降至十周来最差福州飞昆明航班恢复近2000元皮衣 干洗后褶皱圣诞促销力度不小 榕金饰销售仍疲软榕个体美发店 从业人员持证上岗率低
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘