vb 一个窗体多次打开求解决

Question

本帖最后由 jieweb 于 2011-07-13 16:14:52 编辑

Answer 1

每个按钮中的代码都改写成这个样子：Option ExplicitPrivate Sub Command1_Click()
    Dim frmObj As Form
    Set frmObj = New Form1
    frmObj.Show
End Sub
不要用全局变量f

Answer 2

我的QQ 是 6547003 Veron_04 可以加加吗》

Answer 3

没有明白你要的什么返回值啊，你重新定了form2,重新调用了f.datalist 
你想得到什么呢？

Answer 4

1.我打开  form2 了  
2.我在FORM2 打开 form3 
Private Sub add_Click()
  form3.show 1
End Sub
3.form 是添加记录的
Private Sub addok_Click()
  dim rs as new adodb.recordset
  rs.open "select from tab",conn,1,3
  rs.addnew
  rs.update
  rs.close
  set rs = nothing
f.datalist  '//form2的这个不更新添加的记录
unload me
End Sub

Answer 5

1.就是form2 打开多少个 2.在form2 打开FROM 
Private Sub add_Click()
  form3.show 1
End Sub
3.form3 添加成功后  调用form2 的 datalist 
Private Sub addok_Click()
  dim rs as new adodb.recordset
  rs.open "select from tab",conn,1,3
  rs.addnew
  rs.update
  rs.close
  set rs = nothing
f.datalist '//form2的这个不更新添加的记录
unload me
End Sub

Answer 6

Private Sub add_Click()
  form3.show 1
'---
在这里重新调用显示数据的函数
End Sub

Answer 7

clear_zero 你QQ多少  加下你 我的是6547003

Answer 8

一.Module1类代码
Public newfrm As New Form2
二.Form1代码 ----------------一个Command1
Private Sub Command1_Click()
Set newfrm = New Form2
newfrm.list1
newfrm.Show
End Sub
三.Form2代码 ----------------2个Command1 Command2  一个TextboxPrivate Sub Command1_Click()
'Dim newfrm As Form2
Set newfrm = New Form2
list1
newfrm.Show 1
       
End SubPrivate Sub Command2_Click()
Form3.Show 1
End SubPublic Sub list1()
newfrm.Text1.Text = Now()
End Sub
四.Form3代码 ----------------1个Command1 
Private Sub Command1_Click()
'Set newfrm = New Form2
newfrm.list1
Unload Me
End Sub1.在form1 打开 form2, 这时候form2是第一层2.form2 第一层 在form2点Command2_Click 打开form3 在点from3的Command_Click 可以newfrm.list1把时间更新到 form2的.text1文本框问题：
1.在form2 第一层点按钮Command1  ,又打开一个form2 这个是第二层了 
2.在把第二层form2给关闭了 ，是不是第一层的form2 还在 那在点第一层的from2 的Command2_Click 打开form 打开form3 .,在点在点from3的Command_Click 不可以newfrm.list1把时间更新到 form2第一层的.text1文本框了 不知道怎么回事  望各位帮忙解决 是不是我的方法用错了  有什么好的办法