
vb data控件 怎样实现查询
PrivateSubCommand5_Click()Dimaa="单据编号="&"'"&Text1.Text&"'"Data1.Recordset.FindFirstaI...
Private Sub Command5_Click()
Dim a
a = "单据编号=" & "'" & Text1.Text & "'"
Data1.Recordset.FindFirst a
If Data1.Recordset.NoMatch Then
MsgBox "没有此记录"
End If
End Sub
可以这样查询吗 展开
Dim a
a = "单据编号=" & "'" & Text1.Text & "'"
Data1.Recordset.FindFirst a
If Data1.Recordset.NoMatch Then
MsgBox "没有此记录"
End If
End Sub
可以这样查询吗 展开
1个回答
展开全部
完全可以的!
但是,在执行Data1.Recordset.FindFirst 方法前,需要先设置
Data1.RecordSource 属性??????
但是,在执行Data1.Recordset.FindFirst 方法前,需要先设置
Data1.RecordSource 属性??????
追问
Data1.RecordSource 已设置表,不能运行
追答
扣我:四七另六九二二三六,请注明:VB_Data控件
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询