'在Form2
'
public property let Purpose(byval V bCommit as boolean)
if v then
'作提交初始化
else
'作查询初始化
end if
end property
'Form1
private sub command1_click()
form2.purpose=false
form2.show
end sub
private sub command2_click()
form2.purpose=true
form2.show
end sub
'
public property let Purpose(byval V bCommit as boolean)
if v then
'作提交初始化
else
'作查询初始化
end if
end property
'Form1
private sub command1_click()
form2.purpose=false
form2.show
end sub
private sub command2_click()
form2.purpose=true
form2.show
end sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货