我崩溃了，是我的不对还是什么？大家帮忙了555

Question

在某窗体调用其他窗体的东西，居然发现所有都是对象变量未设置，然后就什么都不能做
我在某窗体调用frmMRBill
发现frmMRBill.mFormKind=0  frmMRBill.ListView2.listItems.count=0
晕
然后我在 frmMRBill中加入一个按钮，写了如下代码：Private Sub Command1_Click()
    
    Debug.Print Me.Lvw2.ListItems.Count & "---1"
    
    Debug.Print FrmMRBill.Lvw2.ListItems.Count & "---2"
    
    Debug.Print Me.Lvw1.ListItems.Count & "---1"
    
    Debug.Print FrmMRBill.Lvw1.ListItems.Count & "---2"
    
    Debug.Print Me.mFormKind & "---1"
    
    Debug.Print FrmMRBill.mFormKind & "---2"
    
End Sub得到
2---1
0---2
10---1
0---2
1---1
0---2凡是1的都是符合我的要求的结果，凡是2的都是不复合的，也就是说，用me可以搞定，但是用窗体的名字就不行，全部都是错的，怎么搞的啊……我郁闷

Answer 1

    确认你的代码是写在FrmMRBill窗体里？

Answer 2

我绝对确认，不是的话我就可以去死了，这么白痴的问题难道也拿来问？而且我删除frmmr之后重新加载，还是不行，一样的效果……靠

Answer 3

试了一下，没有问题啊
form1中
Private Sub Command1_Click()
Debug.Print Me.ListView1.ListItems.Count & "---1"
Debug.Print Form1.ListView1.ListItems.Count & "---2"
End SubPrivate Sub Form_Load()
Dim i As Integer
Dim RItem As ListItem
Dim nFieldCount As IntegerListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "id"
ListView1.ColumnHeaders.Add , , "name"
ListView1.ColumnHeaders.Add , , "msg"
For i = 1 To 9
    Set RItem = ListView1.ListItems.Add(, , i)
Next
End Sub另外一个form中
Private Sub Command1_Click()
Form1.Show 1
End Sub

Answer 4

怎么重建？我移除这个窗体再添加还是一样
如果添加一个form的话……
我上面有好多控件啊，难道都要重画？？555
120多个控件啊

Answer 5

添加一个窗体，再把原来窗体的东西全部copy过去，代码也copy过去，删除原来的窗体，把刚才添加的这个变成原来的那个窗体名字，再运行……还是这种效果，搞的什么飞机啊，我不行了

Answer 6

together就是建模工具啊,可以帮助你设计软件架构,通过使用他可以大大提高软件开发的效率!!对于jbuilder有together for jbuilder,至于怎么使用去看together的pdf联机帮助啊!!