Code:
Public Sub FillDdl(ByVal str1 As String, ByRef dt As Data.DataTable, ByVal ddl As ComboBox)
Try
cmd.CommandText = Data.CommandType.Text
cmd.CommandText = str1
da.SelectCommand = cmd
da.SelectCommand.Connection = con
dt.Rows.Clear()
da.Fill(dt)
If dt.Rows.Count > 0 Then
Dim dv As New Data.DataView(dt)
ddl.DataSource = dv
ddl.DataTextField = "Name"
ddl.DataValueField = "Code"
ddl.DataBind()
End If
Catch ex As Exception
End Try
End Sub
Code:
ddl.DataTextField = "Name"
ddl.DataValueField = "Code"
ddl.DataBind()
Comment