Dim sLogMessage as String

    Dim sErrorMessage as String

    grdGetRowCount = -1

    Result = SQAGetProperty(sGridRecogStr, "Column.Count", vValue)

    If Result = sqaSuccess Then

        GetRowCount = CInt(vValue)

    Else

        sLogMessage = "无法得到Grid的列数”

        sErrorMessage = "[" & CStr(Result) & " = " & Error(Result) &"]"

        SQALogMessage sqaFail, sLogMessage, sErrorMessage

    End If

End Function

就到这里吧。

                                        写于 2004-4-23 凌晨1.30

上一页  [1] [2] [3]