UC知道vb编程出了点毛病,高手帮忙来看下~~
来源：百度知道 编辑：UC知道 时间：2024/05/25 14:06:37
Private Sub Command1_Click()
mzy = InputBox$("请输入一个词", "输入框", , 100, 100)
Dim db As Database
Dim qd As QueryDef
Set db = OpenDatabase("C:\Documents and Settings\user\桌面\新建文件夹\db7.mdb")
Set qd = db.CreateQueryDef("", "Select 表名" + "." + mzy + " From 表名")
End Sub
Private Sub Text1_Change()
Text.Text1 = qd
End Sub
为什么TEXT.TEXT1没变化?
谢谢帮忙了~
应该怎么写呢?
mzy = InputBox$("请输入一个词", "输入框", , 100, 100)
Dim db As Database
Dim qd As QueryDef
Set db = OpenDatabase("C:\Documents and Settings\user\桌面\新建文件夹\db7.mdb")
Set qd = db.CreateQueryDef("", "Select 表名" + "." + mzy + " From 表名")
End Sub
Private Sub Text1_Change()
Text.Text1 = qd
End Sub
为什么TEXT.TEXT1没变化?
谢谢帮忙了~
应该怎么写呢?
起码应该是text1.text
再说你上面qd是一个对象不是STRING,.text不能接受它.
再说 qd不是全局变量.在change事件中只能返回空字符串
#######################################################
我觉得你的思路我有点无法理解。
请你先说明你在Text1_Change中到底要做什么样的操作