0

我是这个网站的新手。我已经彻底寻找答案，但似乎找不到答案。我希望你们中的一个好人能够帮助我......

谢谢

当我尝试使用下面显示的代码运行我的自定义表单时，我收到以下消息：

Script Error
Expected statement
Line No:33

代码：

Function Item_Open()
    Dim LeaveItem
    Dim IO
    If not Connection_Open Then
        MsgBox("Error connecting to SI")
        LeaveItem = True
        Item_Open = False
    Else
        Item_Open = False
    End If
End Function

Function Item_Close()
    If LeaveItem = True Then
        Exit_Function
    Else
    End If
End Function

Subroutine Connection_Open()
    Dim oSI
    Set oSI = New ADODB.Connection
    Dim ostrSI
    oSI.ConnectionString = "Driver={Progress OpenEdge 10.1C  Driver};HOST=192.168.1.1;DB=kob;UID=sii;PWD=sisys1;PORT=2501;"
    oSI.Open
End Sub
4

1 回答 1

1

改变

Subroutine Connection_Open()

至

Sub Connection_Open()
于 2012-04-05T16:46:05.510 回答