Office中国论坛/Access中国论坛

标题: 组合框新示例-自动填充 [打印本页]

作者: zhengjialon 时间: 2004-8-25 18:29
标题: 组合框新示例-自动填充
答网友：组合框新示例-自动填充

作者: 百度千秋 时间: 2004-8-26 00:38
不错

作者: goltaxhs 时间: 2006-5-20 00:30
很好

作者: huangdeguo 时间: 2006-5-20 04:49
谢谢，学习中！

作者: avlding 时间: 2006-5-23 19:30
学习！！！

作者: peixibo 时间: 2007-5-30 15:50
学习一下

作者: coldbing 时间: 2007-6-8 21:25
效果不错.

作者: chenjiebjie 时间: 2007-7-15 22:55
简单体现本质

作者: hugcy110 时间: 2007-9-6 18:12
收下了学习学习
谢谢

作者: wx120- 时间: 2007-12-7 00:36
adbeg和Harsonliao赠送的超值源码

作者: wx120- 时间: 2007-12-7 00:39
组合框新示例-自动填充

作者: leowz 时间: 2008-1-27 11:31
回复，看看，学习学习

作者: yaozi 时间: 2008-1-27 14:15
kkkkkkkkkkkkkkkkkkkk

作者: zjs0270 时间: 2008-1-29 13:22
谢谢楼住分享

作者: ttstory 时间: 2008-2-2 19:38
好东西,一定要收藏thx

作者: zqlgl 时间: 2008-3-16 01:22
不错,适合于我们这些菜鸟.

作者: 飘零雨 时间: 2008-3-22 14:36
,多谢

作者: hangin 时间: 2008-3-23 21:48
谢谢，学习中！

作者: sarfeilee 时间: 2008-3-25 16:48
收下了

作者: 3828688 时间: 2008-3-25 17:59
学习学习.....

作者: likeing 时间: 2008-4-5 17:08
好好好

作者: snddzxb 时间: 2008-4-7 16:09
学习学习

作者: fishlike 时间: 2008-4-7 17:32
这个不错

作者: 咱家是猫 时间: 2008-4-7 21:18
学习下

作者: chenwm1973 时间: 2008-4-7 21:21
[:50] [:50] [:50]

作者: 咱家是猫 时间: 2008-4-7 21:22
挺不错,但是要注意非1个选项时清除值.

作者: sznt 时间: 2008-4-8 07:53
收下了学习学习
谢谢

作者: 668899 时间: 2008-4-16 15:55
111111111111

作者: dqsytmh 时间: 2008-4-17 10:27
学习一下

作者: fuxuan123 时间: 2008-4-17 21:36
啥收自动填充啊，楼主应说明一点

作者: yangwenhong 时间: 2008-4-17 22:53
收下学习学习

作者: liaug 时间: 2008-4-17 23:27
学习了[:33]

作者: yscwl 时间: 2008-4-25 05:45
xuexi , xiexiefenxiang

作者: xuwenning 时间: 2008-4-26 11:59
谢谢，学习中要看

作者: basketball 时间: 2008-5-5 16:19
标题: 66666666666666
66666666666666666

作者: blueaarona 时间: 2008-5-19 11:38
学习学习

作者: 诺言 时间: 2008-5-29 16:42
学习一下

作者: ABCaccess 时间: 2008-6-1 10:57
谢谢你与大众分享

作者: mstudio 时间: 2008-7-11 22:40
学习了[:29]

作者: liaoliao 时间: 2008-7-17 12:57
[:45] [:45] [:45] look

作者: cyber-bobo 时间: 2008-7-17 23:41
kankan[:50] [:50]

作者: bjzlx 时间: 2008-7-26 00:47
楼主辛苦了[:50]

作者: 付谦 时间: 2008-7-26 08:06
标题: 回复 1# 的帖子
KKKKKKKKKKKKKKKKKK

作者: jackie98778 时间: 2008-7-26 23:57
学习一下

作者: tomuch 时间: 2008-7-30 11:07
谢谢分享

作者: inputlgh 时间: 2008-8-22 12:48
标题: 5555555555555
5555555555555555555

作者: graper 时间: 2008-8-22 14:27
看看[:34]

作者: 443898868 时间: 2008-8-22 15:03
学习

作者: wqing 时间: 2008-8-22 21:37

作者: YWM161616 时间: 2008-8-25 12:23
不错...........................................................................。

作者: 罗春芳 时间: 2008-8-25 15:26
kan kan

作者: herosiyong 时间: 2008-9-4 13:14
标题: thanks download
thanks download

作者: hxt1971 时间: 2008-9-14 22:50
谢谢[:49]

作者: YWM161616 时间: 2008-9-15 09:59
看看.....................................................。

作者: tanhong 时间: 2008-9-15 10:02
谢谢分享！收礼不收脑白金，收礼只收好实例。支持！

作者: wangchaoyong 时间: 2008-9-15 15:37
谢谢，学习中！

作者: starliu 时间: 2008-9-15 16:14
不知怎么样，先回复一下

作者: weixia0000 时间: 2008-9-27 11:16
组合框自动填充功能
顶一下1

作者: fangkinght 时间: 2008-10-4 11:16
[:33] [:33]

作者: weikitwong 时间: 2008-10-15 01:41
[:27] see see

作者: can 时间: 2008-10-31 00:07
下载了，谢谢

作者: Benliang 时间: 2008-10-31 10:40
学习学习

作者: ycxyls 时间: 2008-11-5 19:25
标题: 回复 1# 的帖子
11111111111111111

作者: asklove 时间: 2008-11-6 14:19
[:50]

作者: zdm2003 时间: 2008-11-7 16:16
谢谢，学习中

作者: hzwyj 时间: 2008-11-7 19:47
很好的,谢谢了

作者: njy6000 时间: 2008-11-7 19:54
看看是什么?

作者: dwfy 时间: 2008-11-7 21:54
[:50]

作者: 小小鸟 时间: 2008-11-13 12:09
谢谢分享，下载学习。

作者: leiou2007 时间: 2008-11-17 11:53
看看么

作者: sheandme0 时间: 2008-11-17 12:40
做的不错

作者: wuminhui 时间: 2008-11-27 23:30
好东西，谢谢！

作者: wen123456 时间: 2008-11-28 13:38
[:24] [:26]

作者: fjnplh 时间: 2008-11-28 16:13
组合框新示例-自动填充

作者: windtsang 时间: 2008-12-17 15:01
学习学习

作者: windtsang 时间: 2008-12-17 15:36
看下[:50] [:50] [:50]

作者: windtsang 时间: 2008-12-18 17:57
学习[:50]

作者: david9198 时间: 2008-12-22 14:53
谢谢，学习了

作者: meloncash 时间: 2008-12-22 14:57
学习一下下哦

作者: ytfgymq 时间: 2008-12-25 16:28
LOOK 一下

作者: u2f2 时间: 2008-12-31 10:41
谢谢分享

作者: lhsh 时间: 2008-12-31 22:39
收下了学习

作者: ge88 时间: 2009-1-1 13:43
kjkj

作者: 彼岸 时间: 2009-1-13 10:12
看看是啥

作者: boy1 时间: 2009-1-14 10:50
标题: 学习
学习

作者: boy1 时间: 2009-1-14 10:50
标题: 好啊
[:32] 好

作者: 竹笛 时间: 2009-1-14 10:54
简单体现本质

作者: coolabc 时间: 2009-1-16 15:45
kankan

作者: 想做NO.1 时间: 2009-2-7 09:32

作者: aalons 时间: 2009-2-7 10:40
楼上名字跟我以前的一样，莫非？？

作者: kn1394 时间: 2009-2-12 08:16
try

作者: 7777777 时间: 2009-2-12 12:41
收下了学习学习
谢

作者: yx880 时间: 2009-2-13 00:20
yttjjtjyyyyyyyyyyyyyy

作者: huangxiuwen 时间: 2009-2-15 04:25
学习

作者: tdhgj 时间: 2009-2-23 16:22
good

作者: micyuer 时间: 2009-2-24 16:16
kankan

作者: zczc123 时间: 2009-2-25 03:17
顶下！！！！

作者: popo559 时间: 2009-3-12 06:18
谢谢分享！

作者: ghfmac 时间: 2009-3-12 11:02
看看！！！！！！！！！！！！！！！！！！！！！！！！！

作者: youchytan 时间: 2009-5-26 14:28
Public Function MultComb()
'本函数可放在窗体的组合框的更改事件属性中或在事件过程中调用
'本函数利用Screen.ActiveControl对象及对象的tag属性扩大其通用性，如有冲突，也可利用公共变量代替
Dim i As Integer, strList As String
With Screen.ActiveControl
      '用";"作分隔符提取组合框选项列表，此项功能也可应用在其它判断是否在列表中的例程中
      For i = 0 To .ListCount
         strList = IIf(Nz(strList) = "", "", strList & ";") & .ItemData(i)
      Next
      '判断更改的文本框内容是否在列表中，若是则用更改前内容加上"、"及更改后内容作为新值
      If InStr(1, .Tag, .Text) = 0 And InStr(1, strList, .Text) > 0 Then
         .Value = IIf(Nz(.Tag) = "", "", .Tag & "、") & .Text
      End If
      '判断已选及在列表内则内容不变
      If InStr(1, .Tag, .Text) > 0 And InStr(1, strList, .Text) > 0 Then
         .Value = IIf(Nz(.Text) = "", "", .Tag)
      End If
      '保存更改后的内容
      .Tag = .Value
End With
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)