Question

vb编程中，想在一个窗体中设置按钮，输入关键字后，点击此按钮，可根据输入的关键字显示另一个窗体

各位大虾：vb编程中，想在一个窗体中设置按钮，输入关键字后，点击此按钮，可根据输入的关键字显示另一个窗体，并在次窗体上显示输入的关键字的相关信息。
这种情况该如何实现？
If rs2.RecordCount > 0 Then
For i = 1 To rs2.Fields.Count
If IsNull(rs2.Fields(i).Value) Then
If UBound(myArray_base1) >= i - 1 Then
Me.Controls(myArray_base1(i - 1)).Value = ""
Else
Me.Controls(myArray_base2(i - UBound(myArray_base1) - 2)).Value = ""
End If
Else
If UBound(myArray_base1) >= i - 1 Then
Me.Controls(myArray_base1(i - 1)).Value = rs2.Fields(i).Value
Else
Me.Controls(myArray_base2(i - UBound(myArray_base1) - 2)).Value = rs2.Fields(i).Value
End If
End If
Next i
Else
MsgBox "没有查询到符合条件的记录！", vbInformation, "查询结果"
审批申请号.SetFocus
End If
End Sub

Answer 1

提供几点意见：
1. 关键字最好不要是输入的，可以用列表框显示出来给用户选
2. 关键字可以在模块中定义公用变量，这样可以跨窗口使用。
3. 数据库查询放到弹出窗口的代码中，主窗口只要传递变量就可以了。

追问

下面是程序前半部分：
Private Sub 查询帐户基本信息_Click()
Dim sql As String, app_id As String
Dim i As Integer
帐户基本信息管理.Show 0
sql = "select top 1 * from [帐户基本信息管理$] where 申请号=申请号.text order by 最近一次修改日期 desc"
Set rs2 = New ADODB.Recordset
rs2.Open sql, cnn, adOpenKeyset, adLockOptimistic

追答

看来你还没明白我的意思。

Answer 2

js脚本

Answer 3

vb没怎么用过啊~么意思~