从DataGridView到Crystal Reports VB.NET的传输日期
从DataGridView到Crystal Reports VB.NET的传输日期
提问于 2022-04-01 14:16:52
当我使用这些代码时，Dim inDate As String = CStr(dgr.Cells(0).Value.ToString("MM-dd-yyyy"))。错误表示从字符串“MM”到类型整型的转换无效。但是当我使用这些代码时，Dim inDate As String = CStr(dgr.Cells(0).Value。它以时间格式显示来自GridView的日期。我只想显示日期，而不是日期。要将数据从网格视图传输到水晶报表，请执行以下操作。我用了DataSet和DataTable。表中日期列的数据类型是字符串。这是我的全部密码。
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim report1 As New payslip
Try
Dim ds As New DataSet1
Dim ms As New MemoryStream
CompanyLogo_Picture.Image.Save(ms, CompanyLogo_Picture.Image.RawFormat)
Dim byt() As Byte = ms.ToArray
ds.DataTable1.Rows.Add(byt)
For Each dgr As DataGridViewRow In DataGridView3.Rows
Dim inDate As String = CStr(dgr.Cells(0).Value.ToString("MM-dd-yyyy"))
Dim inTime As TimeSpan = dgr.Cells(1).Value
Dim outDate As String = CStr(dgr.Cells(2).Value.ToString("MM-dd-yyyy"))
Dim outTime As TimeSpan = dgr.Cells(3).Value
ds.DataTable2.Rows.Add(inDate, inTime, outDate, outTime)
Next
report1.SetDataSource(ds)
report1.SetParameterValue("employeeName", TextBox6.Text)
report1.SetParameterValue("companyName", CompanyName_Label.Text)
report1.SetParameterValue("companyAddress", CompanyAddress_Label.Text)
report1.SetParameterValue("dateFrom", DateTimePicker1.Text)
report1.SetParameterValue("dateTo", DateTimePicker2.Text)
report1.SetParameterValue("dailyRate", payslip_dailyRate.Text)
report1.SetParameterValue("totalDays", payslip_totalDays.Text)
report1.SetParameterValue("mealAllowance", payslip_mealAllowance.Text)
report1.SetParameterValue("transportationAllowance", payslip_transpoAllowance.Text)
report1.SetParameterValue("medicalAllowance", payslip_medicalAllowance.Text)
report1.SetParameterValue("grossPay", payslip_grossPay.Text)
report1.SetParameterValue("SSS", payslip_sss.Text)
report1.SetParameterValue("philHealth", payslip_philhealth.Text)
report1.SetParameterValue("pagibig", payslip_pagibig.Text)
report1.SetParameterValue("loans", payslip_loans.Text)
report1.SetParameterValue("tardiness", payslip_tardiness.Text)
report1.SetParameterValue("totalDeductions", payslip_totalDeductions.Text)
report1.SetParameterValue("netPay", payslip_netPay.Text)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Printer_Frm.CrystalReportViewer1.ReportSource = report1
Printer_Frm.ShowDialog()
End Sub我尝试了所有我知道的代码来将这些数据转换成字符串类型，但是没有任何效果。还有其他方法来获得这些文件所需的输出吗？谢谢^_^
回答 1
Stack Overflow用户
发布于 2022-04-01 14:46:04
我的问题现在解决了。我使用这些代码Dim inDate As String = Format(dgr.Cells(0).Value, "MM-dd-yyyy")而不是这些Dim inDate As String = CStr(dgr.Cells(0).Value.ToString("MM-dd-yyyy"))。谢谢各位，^_^
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71708387
复制相关文章
相似问题
腾讯云开发者
