拜托再看一下，这段代码怎么老是出问题？！是关于数据库查询的。(三)（还有，怎样打分？）

Question

拜托！！ 你你你..... 没办法了你把一个STRING给GRID。RECORDSOURCE，也太离谱了吧

Answer 1

你把代码改成：
Data1.recordsourse="Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号='10'"
Date1.refresh
测试一下。如果没问题的话，你得另外找找原因了。

Answer 2

Private Sub command1_Click()
      Dim strSQL As String
      Dim searchstr As String
      searchstr = Trim(InputBox("请输入车牌号：", "查找车牌"))  '有问题
          If searchstr <> "" Then
          
        
        strSQL = "Select PKlogin2.车牌号 From PKlogin2 where PKlogin2.车牌号= '" & searchstr & "'"
        
          Data1.RecordSource = strSQL
          Data1.Refresh
          
        Else
          MsgBox ("对不起，不能输入空号。")
        End If
    End sub