Dim dt As New DataTable
Dim dr As DataRow = dt.NewRow()
dt.Columns.Add("id")
dt.Columns.Add("name")
dt.Columns.Add("shuliang")
dt.Columns.Add("riqi")
dr = dt.NewRow()
dr("name") = "全部"
dt.Rows.Add(dr)
For i As Integer = 1 To objDataSet.Tables(0).Rows.Count
dt.Rows.Add(Ds.Tables(0).Rows(i - 1).Item(0).ToString.Trim _
, Ds.Tables(0).Rows(i - 1).Item(1).ToString.Trim _
, Ds.Tables(0).Rows(i - 1).Item(2).ToString.Trim _
, Ds.Tables(0).Rows(i - 1).Item(3).ToString.Trim)
Next
dt.Columns(1).ColumnName = "1"
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "1"