Question

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

当在窗体上的文本控件Text1（1）里手工输入主键A列里的一个数据时，另一个Text1（2）或是别的什么控件里自动填上Access表里面该主键数据对应的B列的数值，这个值只是初步的填上，可以手工改动。这个该怎样实现？谢谢

Answer 1

用回车触发事件，用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了吗，完整的好长的，我这只是举个大概的例子

Answer 2

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

Answer 3

你这句写错了，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 & ” ' ”试试，应该可以。