listbox修改查询新增

十三笑 · 发表于 2023-1-14 18:01

搞了一点，搞不定，烦请大神帮忙。LISTBOX 查询修改新增

3190496160 · 发表于 2023-1-15 09:46

Private Sub cmdSave_Click()
Dim i&, j&, k&
Dim ar()
ReDim ar(1 To UBound(arr), 1 To UBound(arr, 2))
With lstBooks
      .Clear
      For i = 1 To UBound(arr) '多条件模糊查询，只需把各列串联起来即可。
         If InStr(arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3), txtBookId) Then
            kk = kk + 1
            For j = 1 To UBound(arr, 2)
                  ar(kk, j) = arr(i, j)
            Next j
         End If
      Next i
      If kk <> "" Then .List = ar
End With
End Sub
Private Sub lstBooks_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With lstBooks
      txtBookId.Text = .Column(0)
      txtBookName.Text = .Column(1)
      txtAuthor.Text = .Column(2)
      txtPrice.Text = .Column(3)
      txtCBS.Text = .Column(4)
End With

End Sub

3190496160 · 发表于 2023-1-15 09:46

列表框查询修改.rar (20.8 KB, 下载次数: 51)

3190496160 · 发表于 2023-1-15 09:47

为了不影响查询代码，列表框改为双击事件，供参考

十三笑 · 发表于 2023-1-15 11:34

3190496160 发表于 2023-1-15 09:47
为了不影响查询代码，列表框改为双击事件，供参考

谢谢，但是无法修改保存，而且查询一次就得清空，重新查询

3190496160 · 发表于 2023-1-15 14:59

十三笑发表于 2023-1-15 11:34
谢谢，但是无法修改保存，而且查询一次就得清空，重新查询

呵呵呵，查询结果出来，不清空原来的数据，咋写入查询结果？？倒是要请教一下啊
给你修改的代码，仅仅是查询的代码，哪里来的保存修改？？

十三笑 · 发表于 2023-1-15 16:42

3190496160 发表于 2023-1-15 14:59
呵呵呵，查询结果出来，不清空原来的数据，咋写入查询结果？？倒是要请教一下啊
给你修改的代码，仅仅是 ...

不好意思老师~ 如何在LIStbox中双击某条数据弹出一个窗体？

ivccav · 发表于 2023-1-16 21:48

有现成的教程，研究透就可以了，不系统性的学很难理解的

https://club.excelhome.net/thread-1451605-1-1.html

列表框查询修改.zip (796.29 KB, 下载次数: 46)

ivccav · 发表于 2023-1-16 22:26

本帖最后由 ivccav 于 2023-1-16 22:29 编辑

ivccav 发表于 2023-1-16 21:48
有现成的教程，研究透就可以了，不系统性的学很难理解的

https://club.excelhome.net/thread-1451 ...

新增按钮代码漏了一句，需在.list(k,5)后面加一句:.list(k,6)=ubound(arr)+2，不然刚增的数据无法修改，因为没有在listbox第6列保存数据在工作表中的位置号

这种应用最重要的是记录原始数据的行号，更新起来方便。

十三笑 · 发表于 2023-3-3 12:42

ivccav 发表于 2023-1-16 22:26
新增按钮代码漏了一句，需在.list(k,5)后面加一句:.list(k,6)=ubound(arr)+2，不然刚增的数据无法修改 ...

你说的是修改里面的吧，补上后运行失败

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

[求助] listbox修改查询新增