Just do IT

vb.net 中功能强大的Tostring()

小树 — Mon, 13 Jul 2009 20:37:00 +0800

功能强大的Tostring()
//2007年4月24日
this.TextBox6.Text = System.DateTime.Now.ToString("D");
//2007-4-24
this.TextBox7.Text = System.DateTime.Now.ToString("d");
//2007年4月24日 16:30:15
this.TextBox8.Text = System.DateTime.Now.ToString("F");
//2007年4月24日 16:30
this.TextBox9.Text = System.DateTime.Now.ToString("f");
//2007-4-24 16:30:15
this.TextBox10.Text = System.DateTime.Now.ToString("G");
//2007-4-24 16:30
this.TextBox11.Text = System.Dat

Access-查询时间为空的记录

小树 — Fri, 19 Jun 2009 01:24:00 +0800

一直试=null 怎么就是没反应找到个方法分享一下
修改
UPDATE TABLE set subDate='2009-06-18 15:30:09' where IsNull(subDate)
查询
select subDate,modifytime from Article where IsNull(subDate)

EXECL的基础操作说明

小树 — Tue, 26 May 2009 01:55:00 +0800

22、设置字体颜色 x.rows(1).font.colorindex=4 23、打印预览代码 x.worksheets.printpreview 24、打开EXCEL文件 x.workbooks.open filename:=“c:\my documents\my vb \lgx \dy.xls“ 25、冻结窗格 xlApp.ActiveWindow.FreezePanes = False xlApp.Range("A2").Select() xlApp.Range("E2").Select() xlApp.ActiveWindow.FreezePanes = True

生命万岁

小树 — Tue, 26 May 2009 01:55:00 +0800

我听见耶路撒冷的钟声响起， I hear Jerusalem bells a ringing 罗马骑兵唱诗班军歌嘹亮。 Roman Cavalry choirs are singing 化作明镜、剑与盾 Be my mirror my sword and shield 我的传教士屹立异国之疆场！ My missionaries in a foreign field 出于某种原因我无法解释 For some reason I can't explain 我知道圣人彼得会呼唤我的名字 I know Saint Peter will call my name 再也没有一句诚实的话语 Never an honest word 在我曾经呼风唤雨的日子里

vb.net操作注册表（增加修改删除查询）

小树 — Tue, 26 May 2009 01:54:00 +0800

vb.net操作注册表（增加修改删除查询）
增加
Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\Faxturer", True)
        Dim subkey As Microsoft.Win32.RegistryKey
        subkey = key.CreateSubKey("Manu")
        subkey.SetValue("Path", "d:\software\sdf", Microsoft.Win32.RegistryValueKind.String)
       'reg.SetValue("path", New String() {"d:\software\sdf","dfdf"}, Microsoft.Win32.RegistryValueKind.MultiString)
修改
Di

access数据库修改（字段类型，添加字段，修改字段）

小树 — Tue, 26 May 2009 01:51:00 +0800

1.修改字段类型改成备注：ALTER TABLE #tablename# alter column #columnname# text 改成文本：ALTER TABLE #tablename# alter column #columnname# varchar(20) 改成数字：ALTER TABLE #tablename# alter column #columnname# Decimal(18)2.添加字段 ALTER TABLE #tablename# add column #columnname# Decimal(18)3.更改字段名先新建临时表把要改的数据表数据复制到临时表删除原来的表新建正确的表结构把临时表数据复制到新建的表删除临时表create table [M_T_C_2_8_temp] ( ID varchar(20) PRIMARY KEY,

Inno Setup 问题集合

小树 — Tue, 26 May 2009 01:44:00 +0800

【问题一：Inno Setup 执行REG文件代码？】
[Run]
Filename: "{win}\regedit.exe";Parameters:"/s {tmp}\reg.reg" // 静默参数/S

--------------------------------------------------------------------------------
【问题二：安装时，如果已经有同名文件存在，就不更新该文件？】
[Files]
Source: "test.tmp"; DestDir: "{app}"; Flags: onlyifdoesntexist //onlyifdoesntexist表示只有当这个文件不存在的时候才安装这个文件。

--------------------------------------------------------------------------------
【问题三：卸载时不卸载某一个文件？】
[Files]

Inno setup常用[code]修改技巧

小树 — Thu, 30 Apr 2009 18:20:00 +0800

或者//自定义安装向导小图片程序代码[code]procedure InitializeWizard();beginWizardform.WizardSmallBitmapImage.left:= WizardForm.width-164; //自定义安装向导小图片显示位置WizardForm.WizardSmallBitmapImage.width:=164; //自定义安装向导小图片宽度Wizardform.PageNameLabel.width:= 495 - 164 -36; //这儿必须定义,数值根据图片宽度更改,显示软件名称的位置Wizardform.PageDescriptionLabel.width:= 495 - 164 -42; //显示页面信息的位置end;

Excel基本操作常用总结

小树 — Thu, 30 Apr 2009 18:18:00 +0800

或obook=oExcel .workbooks.open("薄名") ' 打开已在工作薄 oSheet=exbook.sheets(n) '获得第n个工作表的控制句柄,后面就由它处理了 oSheet.cells(row,col)=值 '对指定单元格赋值,这个操作大量出现哦 oSheet.range(cells,cells).font '这个属性也常用到，设置格式就是它了: oSheet.range(cells,cells).font.colorindex=3 '设置颜色 oSheet.range(cells,cells).Borders.LineStyle=1 '设边框线 oSheet.range(cells,cells).EntireColumn.AutoFit() '自动列宽

IErrorInfo.GetDescription 因 E_FAIL(0x80004005) 而失败

小树 — Fri, 17 Apr 2009 16:56:00 +0800

把字段名都用[]括起来,原因是你有些字段可能使用了access的关键字,再检查一个里面有没有使用CASE,access不支持CASE关键字,可使用IFF(条件,条件为TRUE时返回值,条件为FALSE时返回值)替代