If r IsNot Nothing Then
If Tables(bm4).Rows.Count<>0 Then
r("a1")= Tables(bm4).Grid.Rows(Tables(bm4).Position+1).Height
If r("a1")<21 Then r("a1")= 21
End If
If Tables(bm1).Rows.Count<>0 Then
r("a2")= Tables(bm1).Grid.Rows(Tables(bm1).Position+1).Height
If r("a2")<21 Then r("a2")= 21
End If
If Tables(bm5).Rows.Count<>0 Then
r("a3")= Tables(bm5).Grid.Rows(Tables(bm5).Position+1).Height
If r("a3")<21 Then r("a3")= 21
End If
r.save
End If
需要把一个窗口中三个表的高度记存下来。程序如上！
可是通过用MessageBox.Show显示数据，发现这三个表的高度不管怎么变化，只有一行会显示出实际高度，另两个是-1。只能记存其中一个。问题出在哪里？谢谢！
加好友 
发短信
Post By：2017/8/1 20:20:00 [显示全部帖子]
