What am I doing wrong in the following code. When trying to process this JSON the punch entries end up being a repeat of the first entry. Meaning punch.emp_id=“0000” and punch.rec_id=“D4” for all 4 interations of the For Next loop.
{“Result”:{“1”:{“rec_id”:“D4”,“emp_id”:“0000”},“2”:{“rec_id”:“D5”,“emp_id”:“0001”},“3”:{“rec_id”:“D6”,“emp_id”:“0002”},“4”:{“rec_id”:“D7”,“emp_id”:“0003”},“5”:{“rec_id”:“D8”,“emp_id”:“0004”}}}
[code]jsonPunches=json.Value(“Result”)
For Each entry as DictionaryEntry in jsonPunches
Dim punch as New Punch
Dim punchDict As New Dictionary
punchDict= entry.Value
punch.emp_id=punchDict.Value(“emp_id”)
punch.rec_id=punchDict.Value(“rec_id”)
next
[/code]