0

請求用のフォームが必要です、

すべてのデータを一度に請求書テーブルに挿入する方法についてのアイデアを得るのを手伝ってください。

アイテムのすべての詳細を取得するためにテキストボックスを使用しています。

これは、テーブルからアイテムの詳細を取得するためのコードです。

enter code here<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))%>
          <tr>
            <td><input name="dipatchid" type="text" id="dipatchid" value="<%=(Recordset1.Fields.Item("dispatchid").Value)%>" size="5" /></td>
            <td><input name="dispatchdate" type="text" id="dispatchdate" value="<%=(Recordset1.Fields.Item("dis_date").Value)%>" /></td>
            <td><input type="hidden" name="custid_" id="custid_" />
              <input name="From_" type="text" id="From_" value="<%=(Recordset1.Fields.Item("from_").Value)%>" /></td>
            <td><input name="to_" type="text" id="to_" value="<%=(Recordset1.Fields.Item("To_").Value)%>" /></td>
            <td><input name="hrs" type="text" id="hrs" value="<%=(Recordset1.Fields.Item("total_hrs").Value)%>" size="5" /></td>
            <td><input name="rate_" type="text" id="rate_" size="8" /></td>
            <td><input name="totalamt" type="text" id="totalamt" size="10" /></td>
            <td><img src="imgs/error_icon.png" width="16" height="16" alt="Remove" /></td>              </tr>
          <% Repeat1__index=Repeat1__index+1  Repeat1__numRows=Repeat1__numRows-1  Recordset1.MoveNext() Wend %>

ここに画像の説明を入力してください

4

1 に答える 1

1

これを達成するには、次の 2 つのことを追跡する必要があります。

  • 挿入される行数
  • 各行のデータ

これを行うためのトリックは簡単です。データを表示しながら、変数をループ回数でインクリメントします。

<%
iNumberOfRecords = 0
Do Until Recordset1.EOF
  %>
  <tr>
    <td>
      <input name="dipatchid" type="text" id="..." value="<%=Recordset1("dispatchid")%>" />
    </td>
    ...
  </tr>
  <%
  iNumberOfRecords = iNumberOfRecords + 1
Recordset1.MoveNext
loop
Recordset1.Close
%>

タグを閉じる前に<form>、それを隠しフィールドに入れます。

<input type="hidden" name="iNumberOfRecords" value="<%=iNumberOfRecords%>" />

次に、送信先のページで、iNumberOfRecords時間をループしてすべての行を挿入します。

<%
for i = 1 to CInt(Request.Form("iNumberOfRecords"))
  idOfRecord = GetFormValue("dipatchid", i)
  otherField = GetFormValue("otherField", i)

  SQL = "INSERT INTO tblInvoices(dispatchid, otherfield) VALUES ( " & idOfRecord & ", " & otherfield & " )"
  Connectionobject.Execute(SQL)
next

Function GetFormValue(sFormname, iIndex)
  If Request.Form(sFormname).Count >= iIndex And iIndex > 0 Then
    GetFormValue = Request.Form(sFormname)(iIndex)
  Else
    GetFormValue = ""
  End If
End Function
%>

は、あなたに(i)ぴったりのRequest.Form("...")アイテムを取得します。

于 2011-03-15T08:38:03.753 に答える