# 救命啊..vb一段程式码,,看不懂也..

Posted by 小丸子 on July 26, 1999 at 14:33:59:

表单form1.frm
Private Function getNetNo(mtype As Integer) As Long
getNetNo = gNetNo(mtype) + 1
gNetNo(mtype) = gNetNo(mtype) + 1
Debug.Print gNetNo(mtype)
sSQL = "UPDATE TERM SET NetNo=" + Format$(gNetNo(mtype))
sSQL = sSQL + " WHERE SysID='WEB' AND [TermNo]='" + Format$(mtype) + "'"
gDB.Execute sSQL
End Function

物件类别模组 order.cls
Private Sub FindNextNetNo(mtype$, NetNo_N&)
On Error Resume Next

Dim ds As Recordset, sSQL$, idx%
NetNo_N = Form1.getNetNo(CInt(mtype))
^^^^^^^^^^^^^^^^^^
这里为什么会错呢???(找不到方法或资料成员)
End Sub

谢谢

Follow Ups: