<% 'スプレッドシート定義 ※全行共通なのでループ外 Dim SpMaxRow Dim SpRowCnt Dim SpMaxCol SpRowCnt = 0 SpMaxRow = SpRowCnt 'フォーム名 SpFormName = "SpCell" ' '行定義 SpRowHeight = "26" '高さ(pixel指定) SpRowCls = "tx1416" '行スタイルclass SpRowStyle = "" '行スタイル '列1定義 SpCellType(1) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン） SpCellWidth(1) = "440" 'セル幅(pixel指定) SpCellCls(1) = "" 'セルスタイルclass SpCellStyle(1) = "" 'セルスタイル SpInputCls(1) = "Spread4L" 'フォームスタイルclass SpInputStyle(1) = "" 'フォームスタイル SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト SpInputChange(1) = "" 'onChangeで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン） SpCellWidth(2) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "" 'セルスタイルclass SpCellStyle(2) = "" 'セルスタイル SpInputCls(2) = "Spread4R" 'フォームスタイルclass SpInputStyle(2) = "" 'フォームスタイル SpInputFocus(2) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(2) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") Dim GokeiKingaku GokeiKingaku = 0 Query = "exec SPM経費労務費取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', '" & Kubun & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt SpInputValue(1) = Content.Fields("摘要") 'フォーム初期値 SpInputValue(2) = ConvIntToMoney(Content.Fields("金額"), false, false) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される If 0=1 Then %> <% End If GokeiKingaku = GokeiKingaku + Content.Fields("金額") Content.MoveNext Loop 'スプレッドシートの空白行を発生させる SpInputValue(1) = "" 'フォーム初期値 SpInputValue(2) = "" 'フォーム初期値 For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される SpMaxRow = Cnt Next %>

<% = Content.Fields("摘要") %>

<% = SetMoney(Content.Fields("金額"), false, true) %>