Question

在vb中如何将动态标签的值从一个窗体传到另一个窗体

在form6窗体中：有这样的代码
counta = rs.RecordCount
For i = 1 To counta
t = rs("floor_id")
rs.MoveNext
Load Label3(i)
With Label3(i)
.Visible = True
.Caption = t
Label3(0).Visible = False
If (i Mod 10) = 0 Then
.Move Label3(i - 10).Left, Label3(i - 10).Top + Label3(i - 10).Height + 60
Else
.Move Label3(i - 1).Left + Label3(i - 1).Width + 60, Label3(i - 1).Top
End If
End With
Next i

我想点击form6窗体中label3(i)标签的时候就将label3(i)的caption传到form7,从而在form7中接收做为查询数据库的条件值。可是要怎么将这个值传过去呢。

Answer 1

有多种方法把form6的某个控件的值传递到form7，比如：

form7.a=label3(i).caption 'a是form7的一个全局（public)变量

form7.label1.caption=label3(i).caption '传递到form7的标签控件中

form7.adodc1.RecordSource="select * from 表 where 字段='" & label3(i).caption & "'" '直接在form6中给form7的数据控件赋值

只要在控件名称前面加上窗体名称，就可以在任何窗体调用该控件的。

补充：
要想实现点击label3(i)就把值传递到form7的目的，可以这样：
Private Sub Label3_Click(Index As Integer)
form7.a = label3(index).caption
form7.show
End Sub
在form7中则加上：
public a as string
Private Sub Form_Load()
adodc1.RecordSource="select * from 表 where 字段='" & a & "'"
'...........
'...........
End Sub