建议多看看msdn 里面的内容十分详细也十分好'in class1option explicitprivate withevents m_edit1 as textboxprivate withevents m_edit2 as textboxprivate withevents m_cmd as commandbuttonprivate m_form as form2public sub attach(e1 as textbox, e2 as textbox, frm as form2,cmd as commandbutton) set m_edit1 = e1 set m_edit2 = e2 set m_form = frm set m_cmd = cmd frm.label1 = e1.text frm.label2 = e2.textend subprivate sub m_cmd_click() m_form.text1 = m_edit1.text m_form.text2 = m_edit2.textend sub'form2 两个label控件 label1,label2option explicitprivate m_obj as new class1public property get objclass() as class1 set objclass = m_objend property'form1 两个edit控件 edit1,edit2option explicitprivate sub form_load() dim f1 as new form2 f1.objclass.attach text1, text2, f1,command1 f1.showend sub 20210311
lrasm近来一直被很多人称为改写海军战场形态的武器,但是个人对于其号称1000公里的射程一直表示很疑惑。可能网上的说法主要来源于那个实验,但是那是ability to reach the target ,并不是range。 jassm-er的基本型是370km,关于其增程版的详细内容,本身也是一个很有意思问题。但两者都没有对舰能力,而lrasm是由其改进而来,到底能继承多少可能要打一个很大的问号...
strsql1 = "select 用户代码,客户名称,需求量,欠款 from 定单信息表 inner join **表 on 定单信息表.用户代码=**表.用户代码 where 客户名称=华北"strsql1 = "select 定单信息.用户代码,定单信息.客户名称,定单信息.需求量, **表.欠款 from 定单信息, **表 where 客户名称=华北