Hello I want to delete characters from string like in each and every row i am getting more then 20 characters . but i want to update the database with first 20 characters and remaining character i want to remove from the string
Dim ds As New PartAliasDataset
Dim dr As PartAliasDataset.PartAliasRow
For Each a As KolaAlias In aliases
dr = ds.PartAlias.NewPartAliasRow
dr.VolvoPartNo = a.VolvoPartNumber
dr.ExtPartNoType = domains(a.AliasDomain)
dr.ExtPartNo = a.AliasPartNo // Form here i want to del the characters
ds.PartAlias.AddPartAliasRow(dr)
Next
Return ds
Member
64 Points
188 Posts
Remove characters
Jan 20, 2014 06:12 AM|suresh.pydi|LINK
Hello I want to delete characters from string like in each and every row i am getting more then 20 characters . but i want to update the database with first 20 characters and remaining character i want to remove from the string
Dim ds As New PartAliasDataset
Dim dr As PartAliasDataset.PartAliasRow
For Each a As KolaAlias In aliases
dr = ds.PartAlias.NewPartAliasRow
dr.VolvoPartNo = a.VolvoPartNumber
dr.ExtPartNoType = domains(a.AliasDomain)
dr.ExtPartNo = a.AliasPartNo // Form here i want to del the characters
ds.PartAlias.AddPartAliasRow(dr)
Next
Return ds
All-Star
35149 Points
9075 Posts
Re: Remove characters
Jan 20, 2014 11:12 AM|smirnov|LINK
Dim ds As New PartAliasDataset
Dim dr As PartAliasDataset.PartAliasRow
For Each a As KolaAlias In aliases
dr = ds.PartAlias.NewPartAliasRow
dr.VolvoPartNo = a.VolvoPartNumber
dr.ExtPartNoType = domains(a.AliasDomain)
If a.AliasPartNo.Length > 20 Then
dr.ExtPartNo = a.AliasPartNo.Substring(0, 20)
Else
dr.ExtPartNo = a.AliasPartNo
End If
ds.PartAlias.AddPartAliasRow(dr)
Next
Return ds