hubaichun的专栏

连接：   'GripReport 连接语句  GRID Report 连接到的数据库    Public ConnectStringForGridReport As String = "Provider=SQLOLEDB.1;Password=password;Persist Security Info=True;User ID=sa;Initial Catalog=DBName;Dat

Public Class RowComparer        Implements System.Collections.IComparer        '对DataGridView进行多列排序类        Private sortOrderModifier As Integer = 1        Public Sub New(ByVal sortO

Function pasteExcel(ByVal DGV As DataGridView)        Try    ' 当前单元格是否选择的判断             If DGV.CurrentCell Is Nothing Then                Return (0)            End If             If DGV.Ro

Dim MDI As MdiClient                               '改变窗口的颜色  在窗口里面设置背景        For Each ctl As Control In Me.Controls            Try                MDI = CType(ctl, MdiClient)                MD

Dim cell As DataGridViewCell            For i = 0 To DataGridView1.Rows.Count - 1                cell = DataGridView1.Rows(i).Cells(4)                If cell.Value = "已住" Then

CrystalReport for vs2010 水晶报表的发布问题以及捆绑发布http://www.camnpr.com/articles/?type=detail&id=112在发布WinForm后，在别人电脑上安装后，打开报表功能项时，报错：缺少CrystalReports支持的程序集，等等错误。下边就来解决这些问题：下载的SAP产品发行版本为水晶报表中,v isuals

Private Sub txtAccommadate_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt可住人数.KeyPress        If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then

说明：      Crystal Reports for .NET Framework 4.0引用：        CrystalDecisions.CrystalReports.Engine，CrystalDecisions.ReportSource，CrystalDecisions.Shared，CrystalDecisions.Windows.Forms 建立报表（Cry

Public Sub ExportToExcel(ByVal DataGridView1 As DataGridView)        If DataGridView1.Rows.Count >= 1 Then            Dim myExcel As New Microsoft.Office.Interop.Excel.Application   '定义Excel, 需要导入

定义：     Public SapLogin As Object    Public SapFC As Object    Public GetSapValue As String    Public ReturnFunction As Boolean    Public TheFunction As Object    Public SAPFunction As Obj

SAP 3.0 定义：     引用：SAP.Middleware.Connector    引用文件：sapnco,sapnco_utils    Public Destination As RfcDestination     'SAP Connector3.0 的RFC源    Public SapFunction As IRfcFunction       'SAP RFC