我是如何用EXCEL+ACCESS+WORD做出一个适合自己使用的东东的

来生缘 · 发表于 2006-6-30 22:35

myid = Val(ListView1.SelectedItem) '记录变动的ID

用了多个MSGBOX测试，终于发现即使当rst.fields(0)和myid一样，循环都不停，就猜想，会不会是ListView1.SelectedItem是个文本呀，果然是，青山，你在哪把它变成文本了？

青山依旧 · 发表于 2006-6-30 22:42

缘哥:你好!

现在用VAL转换后,末条可以,但后条还是出错,下面这名显示黄色.

Do Until rst.Fields(0) = myid

来生缘 · 发表于 2006-6-30 22:46

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)    '文本框显示点击数据
'    On Error Resume Next
    Dim i%
    myid = Val(ListView1.SelectedItem)    '记录变动的ID
    For i = 1 To 12
        Me.Controls("textbox" & i) = ListView1.SelectedItem.SubItems(i)
    Next
    TextBox13 = "第 " & Item.Index & " 页" & "/共 " & ListView1.ListItems.Count & " 页"
End Sub

'是这个地方吗？

[此贴子已经被作者于2006-6-30 22:53:00编辑过]

青山依旧 · 发表于 2006-6-30 22:54

怎么回事,刚才是在此加了代码的,现在就好了,看来这个东东还是怕了缘哥呀,一点不把偶们这些小字辈放在眼里.哈哈...谢谢了!!!!

sotirio · 发表于 2006-7-3 12:16

最近因为工作原因。请朋友帮忙做了一个小控件。现在对VBA也感兴趣了。想学习，不知道从哪里入手。看了这个帖子跟着照做。可是做不出来。

请问：从哪里开始入手学？有没有什么好的材料呀。谢谢。

[em06]

linehan · 发表于 2006-7-4 22:15

有导师风范，谢谢。

zouqiaobin · 发表于 2006-7-13 00:31

可惜我下载不了

wangrunqun · 发表于 2006-7-13 17:14

oriole · 发表于 2006-8-3 22:48

为什么这句报错： ListView1.View = lvwReport

错误：lvwReport　变量未定义

[此贴子已经被作者于2006-8-3 22:57:49编辑过]

来生缘 · 发表于 2006-8-3 23:00

请楼上的仔细研究十一楼

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

我是如何用EXCEL+ACCESS+WORD做出一个适合自己使用的东东的

浏览过的版块