数据太多了,建议分页显示,一页1000条,比如用linq,page是页数,pageMaxRow是每页最大行数
dim query = (From dr In dt.AsEnumerable()
Select dr).Skip(page * pageMaxRow).Take(pageMaxRow).CopyToDataTable
Dim cnn As OleDbConnection
Dim cmm As OleDbCommand
Dim daa As OleDbDataAdapter
Dim dss As DataSet
Dim cnnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Administrator\Desktop\成绩表.mdb;Persist Security Info=False"
Dim sql As String = "select 任务单号,产品名称,订单数量,产出总数,产出良品,产出不良,产出良率,天线损耗,损耗率,芯片总损耗,芯片损耗率,结案良率,结案日期,机台,芯片类型,异常说明 from 任务单结案表 where 结案日期 between #" + renwudanform.DateTimePicker1.Value + "# and #" + renwudanform.DateTimePicker2.Value + "# order by 结案日期 asc "
'Dim sql As String = "select 任务单号,产品名称,订单数量,产出总数,产出良品,产出不良,产出良率,天线损耗,损耗率,芯片总损耗,芯片损耗率,结案良率,结案日期,机台,芯片类型,异常说明 from 任务单结案表"
'Dim sql As String = "select * from 任务单结案表 order by 结案日期 asc"
cnn = New OleDbConnection(cnnstr)
daa = New OleDbDataAdapter(sql, cnn)
dss = New DataSet
daa.Fill(dss, "任务单结案表")
renwudanform.DataGridView1.DataSource = dss.Tables(0)
renwudanform.DataGridView1.ClearSelection() '去除默认选择项
' DataGridView1.Columns(0).Visible = False '隐藏第一列
renwudanform.DataGridView1.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter '设置字体居中显示
renwudanform.DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
'renwudanform.DataGridView1.Columns(15).FillWeight = 400'设置第十五列的列宽相对于其他列的宽度百分比
'dataGridView1.Sort(dataGridView1.Columns[0], ListSortDirection.Descending)
cnn.Close()
cnn.Dispose()
这个是代码