民兵的家园

vflexgrid控件相关技巧

chinanavy — Wed, 12 May 2010 15:00:00 +0800

如何实现将vsflexgrid中修改的数据反馈到数据库中？？
Private Sub vsflexgrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
rs.MoveFirst    '//rs为记录集
rs.Move vsflexgrid1.Row - 1
rs.Edit
If vsflexgrid1.text = "" Then
      rs.Fields(vsflexgrid1.Col - 1) = Null
Else
     rs.Fields(vsflexgrid1.Col - 1) = vsflexgrid1.text
End If
rs.Update
end sub

一、增加记录使用for来循环表格行。
    for i=1 to grid1.rows-1
          with rs

vsflexgrid控件相关技巧

chinanavy — Wed, 12 May 2010 14:57:00 +0800

如何关闭与恢复visual studio实时调试器

chinanavy — Tue, 02 Feb 2010 23:41:00 +0800

如何关闭与恢复visual studio实时调试器如何关闭与恢复visual studio实时调试器

删除：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug\Debugger
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\DbgManagedDebugger
删除后打开visual studio 2005，选工具－选项－调试－实时，把右面的三个选项的对勾都去掉就ok了
如果没有看到调试那是因为你没有选择显示全部选项，打开工具－选项以后，在左下角有一个显示全部选项的选框，选上就ok
这样，windows就没有任何调试器了。
如果想恢复原来的：
执行： drwtsn32 -i

combobox控件自动模糊查询

chinanavy — Sun, 13 Sep 2009 13:58:00 +0800

'----------------------------------------------------------------------------
'
'Author:lihonggen0
'Date:2003-6-19
'功能：listbox 模糊查询
'----------------------------------------------------------------------------

Option Explicit

'申明API函数
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wPa

把所有的字体名称放到 ComboBox自动查询

chinanavy — Sun, 13 Sep 2009 13:57:00 +0800

For I = 0 To Screen.FontCount - 1
cboFont.AddItem Screen.Fonts(I)
Next I
Combo的自动查询技术
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_FINDSTRING = &H14C
Private Sub Combo1_Change()
Dim iStart As Integer
Dim sString As String
Static iLeftOff As Integer
iStart = 1
iStart = Combo1.SelStart
If iLeftOff 0 Then
C

正则表达式的写法

chinanavy — Thu, 02 Apr 2009 20:03:00 +0800

匹配中文字符的正则表达式： [u4e00-u9fa5]
评注：匹配中文还真是个头疼的事，有了这个表达式就好办了

匹配双字节字符(包括汉字在内)：[^x00-xff]
评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）匹配空白行的正则表达式：ns*r
评注：可以用来删除空白行匹配HTML标记的正则表达式：]*>.*?|
评注：网上流传的版本太糟糕，上面这个也仅仅能匹配部分，对于复杂的嵌套标记依旧无能为力匹配首尾空白字符的正则表达式：^s*|s*$
评注：可以用来删除行首行尾的空白字符(包括空格、制表符、换页符等等)，非常有用的表达式匹配Email地址的正则表达式：w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*
评注：表单验证时很实用匹配网址URL的正则表达式：[a-zA-z]+://[^s]*
评注：网上流传的版本功能很有限，上面这个基本可以满足需求匹配帐号是否合法(字母开头，允许5-1

学习petshop笔记

chinanavy — Sun, 23 Nov 2008 18:55:00 +0800

学习petshop笔记

ASP.NET SQL Server 注册工具 (Aspnet_regsql.exe)

chinanavy — Sun, 23 Nov 2008 18:29:00 +0800

ASP.NET SQL Server 注册工具 (Aspnet_regsql.exe)

oracle高版本向低版本导入数据方法

chinanavy — Sun, 05 Oct 2008 11:08:00 +0800

不同版本Oracle之间的EXP/IMP可以通过下面的方法来解决：

1、在高版本数据库上运行底版本的catexp.sql；

2、使用低版本的EXP来导出高版本的数据；

3、使用低版本的IMP将数据库导入到底版本数据库中；

4、在高版本数据库上重新运行高版本的catexp.sql脚本。

PB连接Oracle报错

navyforce — Thu, 31 Jul 2008 16:42:00 +0800

PB连接Oracle报错