VB6.0,请教一个问题，做了一个课题小系统。数据存在Access的一个表里面，现在想实现一个功能

答案:3 悬赏:30 手机版

解决时间 2021-02-15 11:08

提问者网友：贪了杯
2021-02-14 18:25

最佳答案

五星知识达人网友：夜余生
2021-02-14 19:23

用回车触发事件，用Change的话就等于你在里面随便输入就触发了，你输入字符串的时候就会报错。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

//写上要触发的事件，SQL= Select * from [表] where xxx = text1.text
text2.text = rs.field()
End If
End Sub追问兄台，text2.text = rs.field() 这句代码编译错误实时错误 ‘424’ 要求对象
触发事件我写了
sql = "Select * from tb_ABC where KC_IDs=Text1(1).Text"追答你引用access了吗，完整的好长的，我这只是举个大概的例子

全部回答

1楼网友：洎扰庸人
2021-02-14 20:24

你这句写错了，sql = "Select * from tb_ABC where KC_IDs=Text1(1).Text
你是想从TextBox1中读取查询条件是吧？你这样这写的TextBox1传回去的值是“Text1(1).Text”而不是你输入TextBox1中的数。
改成sql = "Select * from tb_ABC where KC_IDs=' ” & Text1(1).Text & ” ' ”试试，应该可以。

2楼网友：逐風
2021-02-14 19:52

在Text对应的Change事件中写读取代码就行了 Find到记录然后读取B字段的值

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息