窗体上的模糊查询问题，请高手指点！！！

store88168 · 发表于 2011-3-21 10:40

SQL = "select * from [Sheet1$" & [g1].CurrentRegion.Address(0, 0) & "]"
If Len(s) Then SQL = SQL & " where " & Mid(s, 6) ６是指要查找的列数吗．应该是７才是吧，不是很明白，再请高手回复．一下子三个问题，在线等待你的回复

zhaogang1960 · 发表于 2011-3-21 11:01

加上KeyDown事件试试看:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 39 Then TextBox2.SetFocus
End Sub

zhaogang1960 · 发表于 2011-3-21 11:04

原帖由 store88168 于 2011-3-21 10:40 发表
SQL = "select * from [Sheet1$" & [g1].CurrentRegion.Address(0, 0) & "]"
If Len(s) Then SQL = SQL & " where " & Mid(s, 6) ６是指要查找的列数吗．应该是７才是吧，不是很明白，再请高手回复．一下子三个 ...

Mid(s, 6)是为了去掉s开始时多出来的5个字符：" and "，从第6个字符开始取s的右边的剩余部分

store88168 · 发表于 2011-3-21 12:43

For i = 1 To 4
t = Me.Controls("TextBox" & i).Text
If Len(t) Then s = s & " and UCase(" & arr(i) & ") like '%" & UCase(t) & "%'"
Next
SQL = "select * from [Sheet1$" & [g1].CurrentRegion.Address(0, 0) & "]"
If Len(s) Then SQL = SQL & " where " & Mid(s, 6)
为什么要从第６个开始呢，从第一个开始也可以吗，有点不太明白，请再解释一下好吗

store88168 · 发表于 2011-3-21 12:49

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 39 Then TextBox2.SetFocus
End Sub
Textbox1用键盘方向可以移到TextBox2中，但是我想从TextBox2用键盘方向移到TextBox１中又怎么样用呢，再请您出手了，谢谢！！！！

store88168 · 发表于 2011-3-21 14:35

zhaogang1960 在忙吗,能回答我上面的问题吗

zhaogang1960 · 发表于 2011-3-21 15:41

原帖由 store88168 于 2011-3-21 12:43 发表
For i = 1 To 4
t = Me.Controls("TextBox" & i).Text
If Len(t) Then s = s & " and UCase(" & arr(i) & ") like '%" & UCase(t) & "%'"
Next
SQL = "select * from [Sheet1$" & [g1].Cu ...

任何的解释不如你自己看一看:
Public Sub Comm()
Dim i&, j&, arr, s$, t$, SQL$
arr = [g1:j1&""]
For i = 1 To 4
      t = Me.Controls("TextBox" & i).Text
      If Len(t) Then s = s & " and UCase(" & arr(i) & ") like '%" & UCase(t) & "%'"
Next
MsgBox s
SQL = "select * from [Sheet1$" & [g1].CurrentRegion.Address(0, 0) & "]"
If Len(s) Then SQL = SQL & " where " & Mid(s, 6)
MsgBox SQL
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
With ListView1
      .ListItems.Clear
      For i = 1 To rs.RecordCount
         .ListItems.Add , , rs.Fields(0).Value
         For j = 1 To rs.Fields.Count - 1
            .ListItems(i).SubItems(j) = rs.Fields(j).Value
         Next
         rs.MoveNext
      Next
End With
rs.MoveFirst
End Sub

zhaogang1960 · 发表于 2011-3-21 15:45

原帖由 store88168 于 2011-3-21 12:49 发表
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 39 Then TextBox2.SetFocus
End Sub
Textbox1用键盘方向可以移到TextBox2中，但是我想从TextB ...

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 39 Then TextBox2.SetFocus
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 37 Then
      TextBox1.SetFocus
ElseIf KeyCode = 39 Then
      TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 37 Then
      TextBox2.SetFocus
ElseIf KeyCode = 39 Then
      TextBox4.SetFocus
End If
End Sub

Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 37 Then TextBox3.SetFocus
End Sub

store88168 · 发表于 2011-3-21 16:01

谢谢zhangang1960耐心的回复，我对mid(S,6)还是不太理解，你不你例一条例子给我好吗，在此表示感谢．
Mid(s, 6)是为了去掉s开始时多出来的5个字符：" and "，从第6个字符开始取s的右边的剩余部分

就是全面５个字符我知道是那些５个字符了．倒个例子好吗．顺便你例子吧，非常感谢您的回复！

zhaogang1960 · 发表于 2011-3-21 16:34

原帖由 store88168 于 2011-3-21 16:01 发表
谢谢zhangang1960耐心的回复，我对mid(S,6)还是不太理解，你不你例一条例子给我好吗，在此表示感谢．
Mid(s, 6)是为了去掉s开始时多出来的5个字符：" and "，从第6个字符开始取s的右边的剩余部分

就是全面５个字 ...

s = s & " and UCase(" & arr(i) & ") like '%" & UCase(t) & "%'"
开始的时候s什么也没有，那么s最终应该是以" and "开头的，而where子句要接字段名，所以要去掉这个多余的5个字符

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

[求助] 窗体上的模糊查询问题，请高手指点！！！