[已解决]学良兄贴子中的问题

yangfx163

在学良兄的一个帖子中，发现有这么一个问题，不知如何改进？
在数据库表格中，若张三的信息排在张三丰前面，所有的查询没有问题；在数据库表格中，若张三的信息排在张三丰后面，那么张三的信息在窗体中查询不到，不知如何解决呢？

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-6-1 14:31

Private Sub ComboBox2_Change()
If Application.CountIf(Sheet1.Range("B:B"), ComboBox2.Text) = 1 Then
a = Sheet1.Range("B:B").Find(ComboBox2.Text, LOOKAT:=xlWhole).Row
For B = 1 To 13
Me.Controls("textbox" & B) = Sheet1.Cells(a, B + 1)
Next B
ComboBox1.Text = Sheet1.Cells(a, 1)
Else
MsgBox ComboBox2 & "  不存在"
End If
End Sub

跳转到最佳答案楼层

yangfx163

在数据库中，若张三的信息排在张三丰的后面，只要在窗体中一点击查询张三的信息，那么只出现张三丰的信息而没有张三的信息。

七彩屋

Private Sub ComboBox2_Change()
If Application.CountIf(Sheet1.Range("B:B"), ComboBox2.Text) = 1 Then
a = Sheet1.Range("B:B").Find(ComboBox2.Text, LOOKAT:=xlWhole).Row
For B = 1 To 13
Me.Controls("textbox" & B) = Sheet1.Cells(a, B + 1)
Next B
ComboBox1.Text = Sheet1.Cells(a, 1)
Else
MsgBox ComboBox2 & "  不存在"
End If
End Sub