修改一下代码，vba修改功能

sunny_lin086 · 发表于 2009-6-26 12:45

请高手帮忙修改vba代码，如何在textbox和combobox中修改相关内容，录入原数据库中，以完成修改功能
谢谢
Private Sub CommandButton1_Click()
Dim c
ComboBox1 = UCase(ComboBox1)
Set c = Sheets("NJBB").Range("A4:A" & Sheets("NJBB").[A65536].End(xlUp).Row).Find(ComboBox1, LookIn:=xlValues, LOOKAT:=xlWhole)
If Not c Is Nothing Then r = c.Row
A = ListView1.FindItem(ComboBox1).Index
With ListView1.ListItems.Item(A)
.Text = ComboBox1
.SubItems(1) = TextBox1.Text
.SubItems(2) = ComboBox2.Text
.SubItems(3) = TextBox2.Text
.SubItems(7) = TextBox3.Text
.SubItems(8) = TextBox4.Text
.SubItems(9) = TextBox5.Text
.SubItems(10) = TextBox6.Text
.SubItems(11) = TextBox7.Text
.SubItems(12) = TextBox8.Text

End With
End Sub
此代码只能实现在ListView1中显示，不能修改在NJBB中的数据

[ 本帖最后由 sunny_lin086 于 2009-6-26 12:47 编辑 ]

sunny_lin086 · 发表于 2009-6-26 13:47

原帖由 sunny_lin086 于 2009-6-26 12:45 发表
请高手帮忙修改vba代码，如何在textbox和combobox中修改相关内容，录入原数据库中，以完成修改功能
谢谢
Private Sub CommandButton1_Click()
Dim c
ComboBox1 = UCase(ComboBox1)
Set c = Sheets("NJBB").Rang ...

高手们。帮帮忙

hupanshan · 发表于 2009-6-26 14:08

11111111.rar (40.8 KB, 下载次数: 30)

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

[求助] 修改一下代码，vba修改功能

最新热点 /1