tobyzhou-CSDN博客

原创 JS下载EXT中指定grid中的数据到EXCEL中

传递要下载数据所在的grid给下面的函数,即可实现.如果只需要下载视图中的某几列,则请将不需要的列隐藏.隐藏必须要设置{dataIndex:...,header:...,sortable:true}此代码仍可修改,做到只下载选中的记录,而不是当前视图中的所有数据.修改相关说明(selModel为CheckboxSelectionModel):var obj = grid

2009-03-13 09:33:00 631 1

原创 LotusScript 操作 OpenOffice calc

Sub Click(Source As Button) Set objServiceManager = CreateObject("com.sun.star.ServiceManager") Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop") 设置对象隐藏,有些时候,是不需要用户看见过程的

2007-11-09 15:54:00 835

转载 VB实现ping指定IP

Option Explicit用于网络不通时先判断网络状态,免得网络不通而导致数据库连接状态检查时间较长带来的麻烦Private Declare Function IcmpCreateFile Lib "icmp.dll" () As LongPrivate Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As

2007-02-08 09:58:00 3130

转载 VB读取ini文件的函数

Option ExplicitPrivate Declare Function GetPrivateProfileInt Lib "kernel32" _Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _ByVal lpKeyName As String, _ByVal nDefault As Long, _B

2007-02-08 09:41:00 1432

原创利用VB登陆并操作Notes

Private Sub Btn_Click()在此之前,1.请先安装Lotus Notes/Domino2.安装VB3.通过"工程"-->"引用",选中"Lotus Domino Objects"On Error Resume NextDim s as New NotesSessionDim db as New NotesDatabase初始化用户信息,p

2007-02-08 09:28:00 1361

function j2f() { var wApp = new ActiveXObject("Word.Application") var wDoc = wApp.Documents.Add() wApp.visible = "False" var username = new String() txt = document.all.txt1.value wApp.Selection.TypeTe

2007-01-09 09:14:00 2121

原创 Lotus中货币数字转换成人民币大写

首先创建一个数字域，为两位小数。域名Total,另外一个域为TotalSum用来显示转换后的结果。1 在TotalSum中的entering域中加入如下代码：******************************************************Sub Entering(Source As Field)Dim workspace As N

2006-12-22 16:37:00 1132

tobyzhou的专栏