Private Sub initDDLByYear(ByVal dt As DataTable)  

 

        ddlByYear.Items.Clear()  

        ddlByYear.Items.Add(New ListItem(GetGlobalResourceObject("Resource1""All"), "0"))  

 

 

        If Not dt Is Nothing Then  

            Dim years = (From r In dt.AsEnumerable  

                    Select DateTime.Parse(r("create_date").ToString()).ToString("yyyy")).Distinct  

 

            For Each y In years  

                ddlByYear.Items.Add(New ListItem(y.ToString, y.ToString))  

            Next  

 

        End If  

          

    End Sub 

創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()