各位好，目前我写程序用到了通过一个access应用程序 A ，调用另一个Access应用程序 B，并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, , "编号='" & Me.编号 & "' ", , acWindowNormal B.Forms("form1").SetFocus D
foreach和array的应用程序,请输入要查找的数字和查找结果(VB6.0源代码编写) Option Base 1 Dim A As Variant Private Sub cmdGo_Click() s_num = Val(txtInput.Text) For j = 1 To UBound(A) If A(j) = s_num Then num = j Next j If num = 0 Then lblShow.Caption = "没有这个数字-> " & s_num Els
