Question

VB怎样搜索结果在form2显示，代码如下：

Private Sub Command1_Click()
Dim a As String
a = InputBox$("", "", "")
If a <> "" Then
a = "学号='" & a & "'"
Data1.Recordset.findfirst a
End If
Form2.Show
Form1.Enabled = False
End Sub
运行时点搜索并输入学号，跳转到form2，但是并没有起到搜索的功能

Answer 1

先load form2，向form2里面的控件如text填写搜索结果，然后form.show，最后关闭form1

追问

怎样向form2里面的text填写搜索结果

追答

我不记得VB6是否能像.NET那样用
Form2.Textbox1.Text="内容"
这样的形式.
但是你也可以用其他方式传递.比如在form2.tag里面写入内容,或者用全局变量传递
然后在FORM2.load事件里面将内容写入textbox1

Answer 2

你没有把搜索结果显示到Form2中
Form2.Show
Form2.Text1.text = Data1.Recordset.Fields(0)
Form1.Enabled = False