ライトスイッチの他のレコードを別のレコードにコピーする
-
20-12-2019 - |
質問
誰もがこれをする方法を知っていますか。私はそれを見るのが2010年の古いチュートリアルビデオであり、それを行う方法についての適切な指示に合っていないようです。私は2012を使っています。 コピーボタンを追加して、レコードをクリックし、コピーをクリックして、選択したものからデフォルトの値を持つ新しいレコードを追加してください。
解決
私のアプリでは、販売引用符を追跡します。私は引用符の修正を行い、維持する能力を持っています。私はこれを実行するためのボタンを使って、以前のリビジョンをコピーして開始するための新しいリビジョンを作成することによって行われます。
あなたが使用していた言語を言及していませんでした。私はvb.netを使っていますが、コードのほとんどは非常に単純なものです。 Me
を使用してキーワードthis
を置き換えます。
マイボタンの_Execute()
コードの中で、最初にコピーするレコードのローカルコピーを作成します。
'Create a quote object to hold the quote to be revised
Dim CurrentRev As Quote
CurrentRev = Me.qQuoteByFirm.SelectedItem
.
その後、データベースに新しいレコードを追加します。
'Add a new quote entity to the database
Me.qQuoteByFirm.AddNew()
.
と関連情報をコピーする:
'Copy the necessary relevant values to the new quote
Me.qQuoteByFirm.SelectedItem.QuoteNumber = CurrentRev.QuoteNumber
Me.qQuoteByFirm.SelectedItem.RepFirm = CurrentRev.RepFirm
Me.qQuoteByFirm.SelectedItem.Customer = CurrentRev.Customer
Me.qQuoteByFirm.SelectedItem.QuoteStatus = CurrentRev.QuoteStatus
.
レコード内の各値が単一の値である場合、現在選択されているレコードのコピーを作成します。値が別のテーブルとの関係を持ち、複数のレコードを含む場合は、その値をループする必要があります。
例えば、上記は私の引用の一般的な情報です。私はまた引用符の表の表との関係を持っています。各引用数にはいくつかの行項目があり、これらすべてをコピーする必要があります。そのため、各線の項目をループさせて、それを複製してください。
'Duplicate all associate quote line items
For Each item In CurrentRev.QuoteLines
Me.qLineItemsByQuoteID.AddNew()
Me.qLineItemsByQuoteID.SelectedItem.ItemNo = item.ItemNo
Me.qLineItemsByQuoteID.SelectedItem.ProductQty = item.ProductQty
Me.qLineItemsByQuoteID.SelectedItem.Description = item.Description
Me.qLineItemsByQuoteID.SelectedItem.SellPrice = item.SellPrice
Me.qLineItemsByQuoteID.SelectedItem.PartNo = item.PartNo
Next
. 所属していません StackOverflow