利用窗体增加、修改、删除及模糊查询导出数据

zyg365 · 发表于 2012-3-4 22:36

sheet 发表于 2012-3-2 23:02
修改记录时不能更新表中的数据？

修改一下即可：
Private Sub CommandButton4_Click()
On Error Resume Next
Dim i As Integer
With Sheets("Sheet1")
'i = Application.Match(TextBox1.Text, .Range("a:a"), 0)
i = Application.Match(TB1.Text, .Range("a:a"), 0)
MsgBox i

For j = 1 To 5
.Cells(i, j) = Controls("TB" & j).Text
Next
End With
MsgBox "记录修改成功！"
End Sub

sheet · 发表于 2012-3-5 12:14

zyg365 发表于 2012-3-4 22:36
修改一下即可：
Private Sub CommandButton4_Click()
On Error Resume Next

同样不行？

zyg365 · 发表于 2012-3-5 16:15

sheet 发表于 2012-3-5 12:14
同样不行？

绝对可以的

sheet · 发表于 2012-3-5 19:15

zyg365 发表于 2012-3-5 16:15
绝对可以的

我测试不行：

sheet · 发表于 2012-3-5 19:23

本帖最后由 sheet 于 2012-5-9 13:00 编辑

哈哈！看一下自己做的效果：

sheet · 发表于 2012-3-5 19:42

zyg365 发表于 2012-3-5 16:15
绝对可以的

改供应商名称时就不行了，因为TB1.text变了。

六郎 · 发表于 2012-3-6 07:21

本帖最后由六郎于 2012-3-6 07:24 编辑

sheet 发表于 2012-3-5 19:15
我测试不行：

单位只能是新增不能修改，其它项是可以修改的。你做的不错，是否拿来共享？

zyg365 · 发表于 2012-3-6 11:44

sheet 发表于 2012-3-5 19:23
哈哈！看一下自己做的效果：

请把源文件传过来，共享啊

sheet · 发表于 2012-3-6 12:44

还在完善中，待后再传！

sheet · 发表于 2012-3-14 23:39

http://club.excelhome.net/thread-611598-1-1.html
资料一样的，是从这贴修改的吗？或者也是你自己的ID？

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

[分享] 利用窗体增加、修改、删除及模糊查询导出数据