窗体搜索问题看附件谢谢

kenliu75 · 发表于 2020-1-19 10:30

窗体搜索问题看附件谢谢

Manrce · 发表于 2020-1-19 10:44

我试了一下没问题呀，不知道你指的是什么意思？

kenliu75 · 发表于 2020-1-19 10:52

Manrce 发表于 2020-1-19 10:44
我试了一下没问题呀，不知道你指的是什么意思？

选择日期搜索不了

kenliu75 · 发表于 2020-1-19 19:45

求帮忙谢谢。。。。。

魂断蓝桥 · 发表于 2020-1-20 09:16

kenliu75 发表于 2020-1-19 10:52
选择日期搜索不了

数据类型不一样

Private Sub CommandButton4_Click()
Dim fs, m
Dim c, i%
For i = 1 To 7
      Me.Controls("textbox" & i) = ""
Next
If IsDate(TextBox9.Text) Then
      m = DateValue(TextBox9.Text)
Else
      m = TextBox9.Text
End If
Set c = Sheets("数据库").Range("A:A").Find(m, lookat:=xlWhole)
If Not c Is Nothing Then
      For i = 1 To 8
         Me.Controls("textbox" & i) = c.Offset(0, i - 1)
      Next
      lh = c.Row
End If
End Sub

kenliu75 · 发表于 2020-1-21 11:02

魂断蓝桥发表于 2020-1-20 09:16
数据类型不一样

Private Sub CommandButton4_Click()

谢谢老师帮忙

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

[求助] 窗体搜索问题看附件谢谢

评分