7,763
社区成员
发帖
与我相关
我的任务
分享cooly，刷新语句加了后，就说“属性使用无效”了
Private Sub Command3_Click()
With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'"
Text1.Text = .Recordset.Fields("BasePrice")
.Recordset .Refresh
End With
End Sub
With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'"
Text1.Text = .Recordset.Fields("BasePrice")
.Recordset .Refresh
End With
End Sub
...全文
请发表友善的回复…
发表回复
