Hi Agni:
Following code is populating data in table with buttonClick event, but it is giving error
in OnLoad event. Could you please let me know what changes do I need to make work this code in OnLoad.
____________
Dim oDataSet As New DataSet
Dim lstrQueryXml As String
lstrQueryXml = "<test><contact>"
lstrQueryXml &= "<contactid>ContactId1</contactid>"
lstrQueryXml &= "<firstname>FirstName1</firstname>"
lstrQueryXml &= "<lastname>LastName1</lastname>"
lstrQueryXml &= "<ssn>123456789</ssn>"
lstrQueryXml &= "<crm>CRM1</crm>"
lstrQueryXml &= "</contact>"
lstrQueryXml &= "<contact>"
lstrQueryXml &= "<contactid>ContactId2</contactid>"
lstrQueryXml &= "<firstname>FirstName2</firstname>"
lstrQueryXml &= "<lastname>LastName2</lastname>"
lstrQueryXml &= "<ssn>123456782</ssn>"
lstrQueryXml &= "<crm>CRM2</crm>"
lstrQueryXml &= "</contact>"
lstrQueryXml &= "<contact>"
lstrQueryXml &= "<contactid>ContactId3</contactid>"
lstrQueryXml &= "<firstname>FirstName3</firstname>"
lstrQueryXml &= "<lastname>LastName3</lastname>"
lstrQueryXml &= "<ssn>123456783</ssn>"
lstrQueryXml &= "<crm>CRM3</crm>"
lstrQueryXml &= "</contact></test>"
Dim lXmlDocContacts As New XmlDocument
lXmlDocContacts.LoadXml(lstrQueryXml)
Dim root As XmlElement
root = lXmlDocContacts.DocumentElement
Dim directoryList As XmlNodeList
directoryList = root.SelectNodes("/test/contact")
Dim i As Integer
For i = 0 To directoryList.Count - 1
If i <> 0 Then
thisXDocument.View.ExecuteAction("xCollection::insert", "ContactDetails_1")
End If
With thisXDocument.DOM
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CIFNumber").text = directoryList(i).Item("contactid").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:FirstName").text = directoryList(i).Item("firstname").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:LastName").text = directoryList(i).Item("lastname").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:SSN").text = directoryList(i).Item("ssn").InnerText
.selectSingleNode("/my:myFields/my:ContactDetails[" & i + 1 & "]/my:CRM").text = directoryList(i).Item("crm").InnerText
End With
Next
-------------------
Thanks
Jason