Hi Srini,
i am using below code It's working only when i am giving single value like 1 and 2, than only these values is coming in all coulumn.
Public Function GetColumnFieldName(ByVal columnOrder As String) As String
Dim columns As String()
columns = columnOrder.Split(New Char() {","c})
Dim fieldName As String = "Product"
For Each column As String In columns
Select Case column
Case "1"
fieldName = "SupName"
Case "2"
fieldName = "COM"
Case "3"
fieldName = "PR"
Case Else
fieldName = "PR"
End Select
Next
Return fieldName
End Function
Public Function GetColumnHeading(ByVal columnOrder As String) As String
Dim columns As String()
columns = columnOrder.Split(New Char() {","c})
Dim columnHeading As String = "Product"
For Each column As String In columns
Select Case column
Case "1"
columnHeading = "SupplierName"
Case "2"
columnHeading = "Commdity"
Case "3"
columnHeading = "Suppliercode"
Case Else
columnHeading = "Suppliercode"
End Select
Next
Return columnHeading
End Function
Private Function IsColumnHidden(ByVal columnSequence As Integer, ByVal columnOrder As String) As Boolean
Dim columns As String()
columns = columnOrder.Split(New Char() {","c})
If columns.Length >= columnSequence Then
Return False
Else
Return True
End If
End Function
below is my Db Scripts:-
CREATE
TABLE [dbo].Supplier_Dummy(
[Id] [int]
NULL,
[Col] [varchar]
(50)
NULL,
[Fields] [Varchar]
(50)
NULL,
)
ON [PRIMARY]
Insert
into [dbo].Supplier_Dummy
values
(1,
'SupplierName',
'SupName')
Insert
into [dbo].Supplier_Dummy
values
(2,
'Commdity',
'COM')
Insert
into [dbo].Supplier_Dummy
values
(3,
'Priority',
'PR')
Insert
into [dbo].Supplier_Dummy
values
(4,
'Suppliercode',
'SubCode')
please check code is correct or Not? please help me out for the same !! urgent plz :)