常见字典用法集锦及代码详解

厦门行 · 发表于 2011-2-11 08:53

谢谢分享

csmctjg · 发表于 2011-2-13 16:03

支持一下，谢楼主

a785378066 · 发表于 2011-2-14 16:03

{:1112:}{:3512:}收藏了

nothingwmm · 发表于 2011-2-14 16:34

收藏为主，讲解很仔细

a785378066 · 发表于 2011-2-14 22:58

{:1112:}

shaowu459 · 发表于 2011-2-16 22:01

学习，谢谢楼主贡献！！

a785378066 · 发表于 2011-2-16 22:23

本帖最后由 a785378066 于 2011-2-16 22:37 编辑

{:1112:}{:3512:}学习了

duonaohe · 发表于 2011-3-6 15:29

本帖最后由 duonaohe 于 2011-3-6 15:45 编辑

回复蓝桥玄霜的帖子

For i = 2 To UBound(Arr)
If Left(Arr(i, 2), 3) = "禾丰镇" Then
      d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","
ElseIf Left(Arr(i - 1, 2), 3) = "禾丰镇" Then
      d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","
End If
Next
k = d.keys
t = d.items
ReDim Arr1(1 To UBound(Arr), 1 To 2)
For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1)
If InStr(t(i), ",") > 0 Then
      aa = Split(t(i), ",")
      For j = 0 To UBound(aa)
         m = m + 1
         Arr1(m, 1) = k(i)
         Arr1(m, 2) = Arr(aa(j), 2)
      Next
End If
Next

能给解释吗？

ren1982521 · 发表于 2011-3-14 13:06

真牛人也收藏

过江龙 · 发表于 2011-3-14 14:44

太好了，正在需要这方面的资料。

		自动登录	找回密码
密码			注册

[分享] 常见字典用法集锦及代码详解