Using con as sqlconnection=sqlcon()
Dim cmd as new sqlcommand("select * from exams", con)
Con.open
Dr=cmd.executereader()
Dim da as new sqldataadapter(cmd)
Dim dt as new datatable("exams" )
Dt. Load(dr)
Dgvexam. Datasource=dt
Dr. Close
Showgrades()
Con. Close()
Dim report as new CrystalreportExam
Report. Setdatasource(dt)
Examviewer. Examview. Reportsource=report
Examviewer. Show
End using
End sub
datagridview 正确填充所有行。当水晶报告加载时,第一行仅包含分数,缺少等级。 但从第2行往下就没问题了。数据加载良好。