pradesa

 Public Shared Sub _ExporttoExcel(ByVal _DataGridView As DataGridView, ByVal _Form As Form)
        Dim Excel As New IO.StreamWriter(Application.StartupPath & "\Export.xls", False)
        Dim _Tmp As String = _Form.Text
        Dim _totalRow As Integer = 0
        Excel.WriteLine("<?xml version=""1.0""?>")
        Excel.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
        Excel.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")
        Excel.WriteLine("    <ss:Styles>")
        Excel.WriteLine("        <ss:Style ss:ID=""1"">")
        Excel.WriteLine("           <ss:Font ss:Bold=""0""/>")

pradesa

'Prosesnya adalah  membandingkan string dari Object Textbox dengan Kolom di DataGridView
'Kalo datanya ketemu, akan di set sebagai Current Row
 
 Public Shared Sub _FindRow(ByVal _DataGridView As DataGridView, ByVal _String As String)
        Dim data As String
        For x = 0 To _DataGridView.Rows.Count - 1
            data = _DataGridView.Rows(x).Cells(1).Value
            Try
                If UCase(data.Substring(0, _STring.Length)) = UCase(_STring) Then
                    _DataGridView.CurrentCell = _DataGridView.Rows(x).Cells(0)

pradesa

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
 
Public Class ClassCetak
Public Shared Sub _ConReport()
        Dim _ReportLogonInfos As New TableLogOnInfos
        Dim _ReportLogonInfo As New TableLogOnInfo
        Dim _ReportConInfo As New ConnectionInfo
        Dim _Tables As Tables
        Dim _Table As Table