Creating new workitems (VB.net ) using json

Question

Hi, I'm creating new work items (devops) using vb.net. I can create a single work item with just a single property but when I try to add a second property I don't see the work item getting created at all. Below is my code.

               Dim JSDocument = New JsonPatchDocument
                Dim JDocOpearion = New JsonPatchOperation

                JSDocument.Add(JDocOpearion)

                With JDocOpearion
                    .Path = "/fields/System.Title"
                    .Operation = Microsoft.VisualStudio.Services.WebApi.Patch.Operation.Add

                    .Value = Txt_WITTitle.Text
                End With

/* If I comment the below upto End With I can see a single work item */

                JSDocument.Add(JDocOpearion)
                With JDocOpearion

                    .Path = "/fields/System.Description"
                    .Operation = Microsoft.VisualStudio.Services.WebApi.Patch.Operation.Add
                    .Value = "This is a description"
                End With

                Dim a As Object
                a = WClient.CreateWorkItemAsync(JSDocument, "Destination Project", "Epic")

Answer 1

Try adding JDocOpearion = New JsonPatchOperation before the second JSDocument.Add(JDocOpearion).

(Also consider reordering the statements, executing JSDocument.Add after creating and filling the operation objects).