- 博客(7)
- 收藏
- 关注
RSS订阅原创 JS下载EXT中指定grid中的数据到EXCEL中
传递要下载数据所在的grid给下面的函数,即可实现.如果只需要下载视图中的某几列,则请将不需要的列隐藏.隐藏必须要设置{dataIndex:...,header:...,sortable:true}此代码仍可修改,做到只下载选中的记录,而不是当前视图中的所有数据.修改相关说明(selModel为CheckboxSelectionModel):var obj = grid
2009-03-13 09:33:00
602
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
799
转载 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
3049
转载 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
1406
原创 利用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
1329
原创 JS调用VBA实现简体和繁体的互换
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
2077
原创 Lotus中货币数字转换成人民币大写
首先创建一个数字域，为两位小数。域名Total,另外一个域为TotalSum用来显示转换后的结果。1 在TotalSum中的entering域中加入如下代码：******************************************************Sub Entering(Source As Field)Dim workspace As N
2006-12-22 16:37:00
1106
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人