将数据表绑定到报表查看器

Using conn2 As New System.Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings(\"XXXX\").ConnectionString)
conn2.Open()
cmd.Connection = conn2

sql = \"select XXX\"
cmd.CommandText = sql
reader = cmd.ExecuteReader()

Dim dt As New DataTable()

dt.Columns.Add(New DataColumn(\"Col1_StaffKey\", GetType(Int32)))
dt.Columns.Add(New DataColumn(\"Col1_PostKey\", GetType(Int32)))

Dim dr As DataRow

While reader.Read()    \'---For each row
     dr = dt.NewRow()
     dr(\"Col1_StaffKey\") = reader(\"staff_key\")
     dr(\"Col1_PostKey\") = reader(\"post_key\")
     dt.Rows.Add(dr)
End While