一个数据库问题，你遇到过吗？
用vb做成一个查询的小程序，可是运行时就出现错误，请高手指点！！
Dim x, i '定义变量
Public Sub viewdata() '定义显示数据的函数
For i = 0 To 4
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i) Else kh(i).Text = ""
Next i
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\data.mdb" '自动识别数据库路径
End Sub
Private Sub Text1_Change()
Data1.RecordSource = "select * from ren where (kh." & "工号" & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
Data1.Refresh
Call viewdata
End Sub
Private Sub Comend_Click()
End
End Sub
这事源代码，出现错误后，如果点击调试，则指向“Data1.Refresh”!
问题点数：20、回复次数：5Top
1 楼liubeiqi（无爱无悔）回复于 2005-08-04 09:45:21 得分 0
这样试试看
Set DataGrid1.DataSource = Nothing
strSql = "select * from usr"
Set Module1.MyRs = Module1.DataShow(strSql, strConn)
Set DataGrid1.DataSource = MyRs
DataGrid1.RefreshTop
2 楼byeshuang（孤独一阵风）回复于 2005-08-04 10:16:35 得分 0
Data1.RecordSource = "select * from ren where kh.工号 like %" & Text1.Text & "%"Top
3 楼byeshuang（孤独一阵风）回复于 2005-08-04 10:18:11 得分 0
嗯？你的kh.工号是哪里的？你那只有表ren呀，kh是什么东西？Top
4 楼fj182（阿花）回复于 2005-08-05 00:50:22 得分 0
楼主的这条代码好麻烦
If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i) Else kh(i).Text = ""
我觉得这样比较简单
kh(i).Text=Data1.Recordset.Fields(i).Value & VBNullString
Top
5 楼bobo994（）回复于 2005-08-07 14:20:59 得分 0
初学者。看不懂。
不过我会进来看看高手们的杰作的。
Top
