|
#2
故障机器人2012-06-07 13:48
|
只有本站会员才能查看附件，请 登录
程序代码：Private Sub Command1_Click()
Dim SQLStr As String, r As Double
r = Val(Text1.Text)
SQLStr = "select*from 深沟球轴承 where 内径=" & "'" & r & "'"
Data1.RecordSource = SQLStr
Data1.Refresh
End Sub
运行后总是这样，想知道哪里错了？表格使用的MSFlexGrid控件。Dim SQLStr As String, r As Double
r = Val(Text1.Text)
SQLStr = "select*from 深沟球轴承 where 内径=" & "'" & r & "'"
Data1.RecordSource = SQLStr
Data1.Refresh
End Sub
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
[ 本帖最后由 故障机器人 于 2012-6-7 13:26 编辑 ]
