[已解决]请老师帮忙解决（窗体数据录入）难题'在线等~！！！

admin321 · 发表于 2011-9-5 15:17

本帖最后由 admin321 于 2011-9-6 15:34 编辑

请老师帮忙解决（窗体数据录入）难题'

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-7 13:54

问题解决了：
(, 下载次数: 121)

心静是福 · 发表于 2011-9-5 15:30

等着学习呢

wsq7668 · 发表于 2011-9-6 18:36

你没引用控件，后面的自己写下，我要出去了

窗体数据录入1.rar (77.92 KB, 下载次数: 36)

zjdh · 发表于 2011-9-6 19:09

是这样吧：

窗体数据录入.rar (33.18 KB, 下载次数: 95)

admin321 · 发表于 2011-9-7 12:27

回复 zjdh 的帖子

大侠，我刚下载打开后，点击C15位置，提示（运行时错误13、类型不匹配）

无聊的疯子 · 发表于 2011-9-7 12:34

回复 admin321 的帖子

将  Private Sub UserForm_Initialize()中的
      For j =1 To 18
         ITM.SubItems(j ) = arr(i, j+1)
      Next
改成
      For j = 2 To 18
         ITM.SubItems(j - 1) = arr(i, j)
      Next

admin321 · 发表于 2011-9-7 12:59

回复无聊的疯子的帖子

大侠依然错误

无聊的疯子 · 发表于 2011-9-7 13:03

本帖最后由无聊的疯子于 2011-9-7 13:04 编辑

回复 admin321 的帖子

复制进去替换了~

Private Sub UserForm_Initialize()
Dim ITM, arr, i%, j%
With Sheets("资料")
arr = .Range("B3:T" & .[B65536].End(3).Row)
End With
For i = 1 To UBound(arr)
Set ITM = ListView1.ListItems.Add()
ITM.Text = arr(i, 1)
For j = 2 To 18
ITM.SubItems(j - 1) = arr(i, j)
Next
Next
Label2 = "共发现数据：" & ListView1.ListItems.Count & " 条"
End Sub

复制代码

zjdh · 发表于 2011-9-7 13:22

我这很正常啊：

zjdh · 发表于 2011-9-7 13:25

本帖最后由 zjdh 于 2011-9-7 13:29 编辑

我再看看 .

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