非常感谢斑竹的回复：

1.这个是全局脚本的项目函数

Function ToSql1(SQLstring,Stamp)

  HMIRuntime.Trace S_SQL'调试

End Function

2.这个是按钮脚本

Sub OnClick(ByVal Item) 

Dim SQLstring

Dim Stamp

SQLstring="test"

Stamp=1

Call ToSql1(SQLstring,Stamp)

End Sub

3.点击按钮出现故障，

Application : PDLRT

Picture : P01DB8141_History.pdl_Events

Function : Sub X6309X94AE1_OnClick(ByVal Item)

Line : 6

Error : 变量未定义: 'ToSql1'

============Microsoft VBScript 运行时错误============