Question

VB 窗体之间切换时，form1切换至form2时，form1中的数据都归零了，导致我没办法在form2中利用form1的数据

请问各位大侠，应该怎么解决。
form1:
Private Sub Combo1_Click()
Dim RJ As Single
If Combo1 = "20尺柜" Then
Text1.Text = Text1.Text + "②内容积为 5.69M×2.13M×2.18M + vbCrLf + vbCrLf
RJ = 26.4
Text6.Text = Val(RJ)
End If
enf sub

form2:
Private Sub Combo1_Click()
If Combo1 = "冻" Then
Text2.Text = Val(Form1.Text6.Text) * 0.6
End If
End Sub

Answer 1

你在窗体中添加个模块，并在模块中定义个变量：如Public temp as string
然后在form1中添加代码：temp=text6.text
最后在form2中改为： Text2.Text = Val(temp) * 0.6

Answer 2

你的form1不要unload 啊，用:
form1.hide
form2.show

追问

没有unload的，我由form1切换至form2用的是工具栏菜单编辑器制作的菜单，在点击顶部的菜单后切换至form2，然后切换回form1，所有的列表框都恢复原来的数据了，导致form2没办法引用从列表框中选择的数据。

Answer 3

form1中的数据都归零了？如果你不清除的话，是不会归零的
不知道你打开form2窗体的代码是什么，我觉得你是不是使用了new了呀，new也不会把form1归零呀

建议代码变更为：

dim frm as form1
If Combo1 = "冻" Then
Text2.Text = Val(frm.Text6.Text) * 0.6
End If

追问

没有unload的，我由form1切换至form2用的是工具栏菜单编辑器制作的菜单，在点击顶部的菜单后切换至form2，然后切换回form1，所有的列表框都恢复原来的数据了，导致form2没办法引用从列表框中选择的数据。

Answer 4

很简单，建立一个全局变量就可以完成的事= =（需建立模块）

Answer 5

添加个模块，在模块里PUBLIC几个变量