还是有问题呀!!!!!(老莫的春天等人请进)

sandyhao 2003-05-08 08:27:11
代码如下:

Private Sub Command3_Click()

With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'"
Text1.Text = .Recordset.Fields("BasePrice")
End With

End Sub

窗体中设计了一个名为text1的textbox,一个名为combo2的组合框,一个adodc,
想要实现,把经过查询的结果赋值给文本框。但是,编译的时候,说“对象变量或WITH块变量未设置”
这是怎么回事呀???
=======================
刚才两位的建议我都试过来,还是有问题。这回有报:属性的使用无效了,
...全文
28 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Cooly 2003-05-08
Private Sub Command3_Click()

With Adodc1
.CommandType = adCmdText
.RecordSource = "select BasePrice from 火车运营价格基本表 where arrivestation='" & Combo2.Text & "'"

.Refresh

Text1.Text = .Recordset.Fields("BasePrice")
End With

End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-08 08:27
社区公告
暂无公告