Public Function AddToSubGroupTable(ByVal ParentID As Int32, ByVal masterID As Int32, ByVal FieldName As String, ByVal fieldAlias As String, ByVal Value As String, ByVal ValueText As String) As Long
Try
Dim dr As DataRow
With dtSubGroup.Rows
dr = dtSubGroup.NewRow
dr(”ParentID”) = ParentID
dr(”FieldName”) = FieldName
dr(”MasterFileID”) = masterID
dr(”Fieldalias”) = fieldAlias
dr(”Value”) = Value
dr(”ValueText”) = ValueText
.Add(dr)
End With
dtSubGroup.AcceptChanges()
Return dr(”PKID”).ToString
Catch ex As Exception
Throw New System.Exception(ex.Message, ex.InnerException)
End Try
End Function