EsbSetDefaultCalc

アクティブ・データベースに対してデフォルト計算スクリプトを設定します。

構文

            EsbSetDefaultCalc
             (
            hCtx, cscString
            )
ByVal 
            hCtx
                  As Long
ByVal 
            cscString
             As String

パラメータ	説明
hCtx	VB APIコンテキスト・ハンドル。
cscString	デフォルト計算スクリプト文字列。

備考

計算スクリプトの文字列の長さは、64KB未満である必要があります。

戻り値

なし。

アクセス

この関数を使用するには、呼出し元はアクティブなデータベースに対して計算権限(ESB_PRIV_CALC)を持っている必要があります。

例

         Declare Function EsbSetDefaultCalc Lib "ESBAPIN" (ByVal hCtx As Long, ByVal Script As String) As Long

Sub ESB_SetDefaultCalc ()
   Dim sts As Long
   Dim Script As String   Script = "CALC ALL;"   '*****************
   ' Set default calc
   '*****************
   sts = EsbSetDefaultCalc (hCtx, Script)
End Sub