关于form_load()里的问题!!!!!

handyworkroom 2003-10-06 07:33:43
在form1的command1中调用form2(load form2),并向它传递一个参数到form2.tag中(字符串),可是我现在想在form2的form_load事件里,判断form2.tag的值。但这样做可能行不通,大家能给我一下帮助吗,谢谢
command1_click()
form2.tag="YEIAD"
load form2
end sub

from2
from_load()
if me.tag="YEIAD" then
rs.open"....."
else
rs.open"...."
end if
end
...全文
276 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
zjcxc 2003-10-06
  • 打赏
  • 举报
回复
用全局变量才行.
coolboy0000love 2003-10-06
  • 打赏
  • 举报
回复
Public mTab As String '定义全局变量

Private Sub Command1_Click()
mTab = "YEIAD"
Form2.Show
End Sub

Private Sub Form_Load()
Me.Tag = mTab
If Me.Tag = "YEIAD" Then
MsgBox ("YEIAD")
End if
End Sub
rainstormmaster 2003-10-06
  • 打赏
  • 举报
回复
用一个全局变量就行了
bigpig 2003-10-06
  • 打赏
  • 举报
回复
同意楼上的
easydone 2003-10-06
  • 打赏
  • 举报
回复
呵呵,最简单的方法是将Form_Load中的代码放到Form_Activate之中就OK了!
csdnybl 2003-10-06
  • 打赏
  • 举报
回复
我不知道你是否知道,一个窗体Form_Load过程的执行时间,当你在form2.tag="YEIAD"复值时,你是先调用的Form_Load过程,后给form2.tag付值。因此,你在Form_Load判断时,它是为空值。你可以采用如下方法:
你可以在公共模块中申明如下:
Public mTab As String '定义全局变量

Private Sub Command1_Click()
mTab = "YEIAD"
Form2.Show
End Sub

Private Sub Form_Load()
Me.Tag = mTab
If Me.Tag = "YEIAD" Then
MsgBox ("YEIAD")
End if
End Sub
守城小轩 2003-10-06
  • 打赏
  • 举报
回复
Public Form2_Tab As String '定义全局变量

Private Sub Command1_Click()
Form2_Tab = "a"
Form2.Show
End Sub

Private Sub Form_Load()
Me.Tag = Form2_Tab
If Me.Tag = "a" Then MsgBox ("dsf")
End Sub

zz124 2003-10-06
  • 打赏
  • 举报
回复
你可以在form2窗口中声明一个共有变量 tag
form1
command1_Click
form2.tag = "YELAD"
form2.show
end sub

form2
form2_load()
if tag = "YELAD"
rs.open ""
else
rs.open ""
end if
end sub


quanyi 2003-10-06
  • 打赏
  • 举报
回复
你应该在form2中设置一个变量存放需要传递的参数﹐再进行比较就可以啦﹗

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧