em đang học thôi, chỉ em giúp
Như mở 1 form, ta dùng lệnh.
Dim form as new forms
form.MdiParent=me
form.show()
còn em đã dùng lệnh này cho report như không mở được, vậy lệnh nào để cho em mở report.
thanks
em đang học thôi, chỉ em giúp
Như mở 1 form, ta dùng lệnh.
Dim form as new forms
form.MdiParent=me
form.show()
còn em đã dùng lệnh này cho report như không mở được, vậy lệnh nào để cho em mở report.
thanks
Private Sub ConfigureCrystalReports()
Dim row As DataRow
If DataGridView_THIETBI.Rows.Count > 0 Then
For i As Integer = 0 To Thietbi.Rows.Count - 1
row = Thietbi.NewRow()
row(0) = DataGridView_THIETBI.Rows.Item(i).Cells.Item("MATH IETBI").Value
row(1) = DataGridView_THIETBI.Rows.Item(i).Cells("tenthietb i").Value
' S.Rows.Add(row)
Next
Else
MessageBox.Show("Chưa có dữ liệu(*)!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Close()
End If
Dim objText As TextObject = CType(report.ReportDefinition.Sections(1).ReportOb jects("text9"), TextObject)
objText.Text = frmMain.StatusBarPanel2.Text
objText.Border.BorderColor = Color.Red
GetTextObject("text10").Text = "Ngöôøi laäp baûng"
' report = New Report_TB()
report.SetDataSource(Thietbi)
End Sub
em nghĩ là đơn gian hơn!
lệnh nhiều quá, em nghĩ là không phải đâu!
cho em ý kiến khác. em mới lập trình mà
Bookmarks