- 博客(14)
- 收藏
- 关注
RSS订阅原创 无题
美好时光已经不再，回忆中只留下一片遗憾的天空，充满着悔恨与无奈。选择独自离开，或许是错误的决择，是懦弱的表现，但绝不是逃避的举措，只是人生苦短，不想再这样活着。现在这种两人世界的生活已经背离当初的期望，潇洒的走开也许是最好的结局，毕竟自由与无忧无虑终是我的生活追求。再见了，我的宝贝，虽然我还仍爱着你。。。。。。
2006-01-24 09:35:00
710
原创 DataGrid中的数据导入到Word和Excel_VB
Imports SystemImports System.CollectionsImports System.ComponentModelImports System.DataImports System.DrawingImports System.WebImports System.Web.SessionStateImports System.Web.UIImports System.Web.U
2005-02-05 10:53:00
1336
原创 DataGrid中的数据导入到Word和Excel_C#
using System;using System.Collections;using System.ComponentModel;using System.Data;using System.Drawing;using System.Web;using System.Web.SessionState;using System.Web.UI;using System.Web.UI.WebContr
2005-02-05 10:44:00
1332
1
原创 字符串分割方法
分割方式一：（可为任意分隔符）var ll:tstringlist; i:integer;begin cmb.Clear; ll:=tstringlist.Create ; try ll.Delimiter :=*; ll.DelimitedText :=123*456*789; for i:=0 to ll.Count-1 do begin cmb.Items.Add(l
2005-01-13 20:36:00
1104
原创 动态创建带事件的控件
类模块Class1代码：Option ExplicitPrivate WithEvents mvarCmBtn As CommandButtonPublic Property Set CmBtn(ByVal vData As CommandButton) Set mvarCmBtn = vDataEnd PropertyPublic Property Get CmBtn() As Co
2005-01-13 20:28:00
1908
1
原创 动态创建recordset
Option ExplicitPrivate Sub Form_Load() Dim adoRecordset As ADODB.Recordset Set adoRecordset = New ADODB.Recordset Dim i As Integer For i = 0 To 2 为Recordset三个字段,即为 DataGrid 添加三列 adoR
2005-01-13 20:25:00
1259
原创 动态生成带事件的MsFlexGrid
Option ExplicitDim WithEvents objExt As VBControlExtender 使用 WithEvents 声明 VBControlExtender 变量Private Sub LoadControl() Licenses.Add "Project1.Control1", "ewrinvcmcoe" Licenses.Add "MSFlexGr
2005-01-13 20:23:00
957
原创 从Excel导入到SQL Server(表至表)
Option ExplicitDim Adocon As ADODB.ConnectionPrivate Sub Form_Load()Set Adocon = New ADODB.ConnectionAdocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID
2005-01-13 20:20:00
2340
2
原创 从Access导入到Access(表至表)
Option ExplicitDim Adocon As ADODB.ConnectionPrivate Sub Form_Load()Set Adocon = New ADODB.ConnectionAdocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID
2005-01-13 20:18:00
1318
原创 Access数据导入到SQL Server(表至表)
Option ExplicitDim Adocon As ADODB.ConnectionPrivate Sub Form_Load()Set Adocon = New ADODB.ConnectionAdocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID
2005-01-13 20:14:00
1628
1
原创 Crystal reports 9 的使用示例（一）
******************************************************************crystal report 的使用示例*适用版本：9.0*制作人：马亚红*制作时间：2004年12月28日*情况：此为在水晶报表软件中制作报表（rpt文件）的调用方式*菜单->工程->引用->选择：*1、Crystal Reports 9 Activ
2005-01-13 19:43:00
5628
原创 水晶报表4.6的使用示例
Private Sub Command1_Click(Index As Integer)With cr1 cr1为报表控件.PrinterDriver = Printer.DeviceName.DiscardSavedData = True-------------------------------------------------连接方式一.Connect = "DSN = dr
2005-01-13 19:15:00
1756
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人