📄 298.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>  <head>    <title>如何传递RDO CONTROL(MSRDC1)到Module</title>  </head>  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">    <center>      <h1>如何传递RDO CONTROL(MSRDC1)到Module</h1>    </center><HR><p>Posted by <a href="mailto:linda@mail.deuchem.com.tw">linda</a> on August 05, 1997 at 04:09:41:<p>请问如何将一个RDO的rdo control传递至module中?程式码如下:<p>Private Sub Form_Load()        '开启SQL资料库<br>'On Error GoTo Error_Handle:<br>    ACCm1.Visible = False<br>    Gsql = "select * from department where depar_id = '****' "<br>    Set rs = Pdb.OpenResultset(Gsql, rdOpenKeyset)<br>    Set Data1.Resultset = rs<br>    Data1.Refresh<br>    Call Pform_entry_flag("ACCa101", ACC.txtUser_id, Prog_add,                           Prog_upd, Prog_del, Prog_qry)<br>    Call P_ButtonInitialMode(ACCa101, Data1, Prog_add, Prog_upd,                              Prog_del, Prog_qry, 3)<br>...............<p>module内容如下:<p>Public Sub P_ButtonInitialMode(Pform As Object, Pdata As Control,            Padd As String, Pupd As String, Pdel As String, Pqry As         String, Pbrowse_print As Integer)<br>    If Pqry = "Y" Then Pform.sscQuery.Enabled = True<br>    If Pdata.rdoResultset.RowCount = 0 Then  'rdoresultset 没有资料<br>     --------------------<p>但当我执行时,它告诉我物件不支援此属性或方法,在DAO时就可以,请问是否<br>要多设些什么?谢谢!<br><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 298--><!--top: 305--><li><a href="305.html"><b>可以啊!</b></a> 小吴 <i>19:05:19 8/05/97</i>(<!--responses: 305-->0)<ul><!--insert: 305--></ul><!--end: 305--></ul><!--end: 298--><br><HR><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -