在VB.NET中使用crystalreport打印datagridview(搜索数据库访问后) [英] Print datagridview with crystalreport in VB.NET(after searching the database access)
本文介绍了在VB.NET中使用crystalreport打印datagridview(搜索数据库访问后)的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
打印搜索访问银行后
私有子按钮2_Click(发件人为对象,e为EventArgs)处理Button2.Click
Dim dt As New DataTable
使用dt
.Columns.Add(ID)
.Columns.Add(tarikh)
。 Columns.Add(shift)
.Columns.Add(kartex)
.Columns.Add(tarh)
.Columns.Add(rang)
以
结束每个博士作为DataGridViewRow在Me.dataGridView1.Rows
dt.Rows.Add(dr.Cells(ID)。Value,dr.Cells(tarikh)。Value, dr.Cells(shift)。Value,dr.Cells(kartex)。Value,dr.Cells(tarh)。Value,dr.Cells(rang)。Value)
下一个
Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptdoc = New CrystalReport1
rptdoc.SetDataSource(dt)
frm_print.CrystalReportViewer1.ReportSource = rptdoc
frm_print.ShowDialog ()
结束次级
错误:无法找到名为id的列
结束类
我尝试过:
请帮忙我感谢我的朋友
解决方案
Quote:无法找到名为id的列
该错误清楚地表明datagridview
不包含ID
拼写错误或列不存在,请尝试使用列索引
。
printing After Search Access Bank
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim dt As New DataTable With dt .Columns.Add("ID") .Columns.Add("tarikh") .Columns.Add("shift") .Columns.Add("kartex") .Columns.Add("tarh") .Columns.Add("rang") End With For Each dr As DataGridViewRow In Me.dataGridView1.Rows dt.Rows.Add(dr.Cells("ID").Value, dr.Cells("tarikh").Value, dr.Cells("shift").Value, dr.Cells("kartex").Value, dr.Cells("tarh").Value, dr.Cells("rang").Value) Next Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument rptdoc = New CrystalReport1 rptdoc.SetDataSource(dt) frm_print.CrystalReportViewer1.ReportSource = rptdoc frm_print.ShowDialog() End Sub error : column named id cannot be foundEnd Class
What I have tried:
Please help me thank my friends
解决方案
Quote:column named id cannot be found
The error clearly says that thedatagridview
doesn't contain the column "ID
"
the spelling may be wrong or the column is not present, try with thecolumn index
instead.
这篇关于在VB.NET中使用crystalreport打印datagridview(搜索数据库访问后)的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文