2019年11月4日
四舍五入
摘要： ''' <summary> ''' 四舍五入 ''' </summary> ''' <param name="dbValue">需要四舍五入的原始数据，字符串类型</param> ''' <param name="rightBits">四舍五入以后，小数点右边保留几位；整数类型</param> '' 阅读全文
posted @ 2019-11-04 10:47 gaoleionline 阅读(158) 评论(0) 推荐(0)
2019年10月25日
vb.net 获取文件的版本号
摘要： dim strVersion = Reflection.Assembly.LoadFrom(strFileName).GetName().Version.ToString() 阅读全文
posted @ 2019-10-25 17:52 gaoleionline 阅读(840) 评论(0) 推荐(0)
vb.net 以读文本文件的方式对XML文件进行遍历
摘要： ' 对XML文件按照文本文件的方式进行遍历 Private Sub checkFile_establishEntity(strFile As String) Dim reader AsTextReader = File.OpenText(strFile) ' 打开文件 Dim ii AsIntege 阅读全文
posted @ 2019-10-25 17:43 gaoleionline 阅读(549) 评论(0) 推荐(0)
vb.net 对字符串中的括号匹配进行判断，容许嵌套
摘要： ' 括号检查 ' 括号共有四种: 1(英文圆括号),2（中文圆括号）,3[方括号],4{花括号} ' 要左右匹配（可以嵌套） Private Shared Function isBracketsOK(strInput As String) As Boolean ' 四种括号，左右各一个，共8个 Di 阅读全文
posted @ 2019-10-25 17:11 gaoleionline 阅读(767) 评论(0) 推荐(0)
2019年10月24日
窗体的keyPreview属性
摘要： 如果把窗体的keyPreview属性设置为true，那么窗体将比其内的控件优先获得键盘事件的激活权。比如Form1和其内的文本框Text1都准备响应keyPress事件，那么以下代码将首先激活窗体的keyPress事件： PrivateSub _frmSuspiciousAlert_case_Key 阅读全文
posted @ 2019-10-24 15:59 gaoleionline 阅读(836) 评论(1) 推荐(0)
下拉框 的 演示
摘要： Dim strCmd AsString = "select code TOSC,rpad(code,length(code),' ')||rpad(' ',2,' ')||code_desc TOSC_desc from tbl_aml_config where code_category='TOS 阅读全文
posted @ 2019-10-24 10:36 gaoleionline 阅读(251) 评论(0) 推荐(0)
vb.net 读取 excel
摘要： Dim myConn AsNew ADODB.Connection myConn.CursorLocation = ADODB.CursorLocationEnum.adUseClient ' 用于连接excel文件的字符串，注意： HDR=No，表示从第0行开始读； HDR=Yes，表示从第1行开 阅读全文
posted @ 2019-10-24 09:37 gaoleionline 阅读(3411) 评论(0) 推荐(1)
vb.net 判断某个文件是否已经打开了
摘要： ' 判断这个excel文件是否已经打开了； 如果打开了，不能下载 Try Dim fs AsFileStream = NewFileStream(excelFileName, FileMode.OpenOrCreate, FileAccess.Read) fs.Close() Catch ex As 阅读全文
posted @ 2019-10-24 09:31 gaoleionline 阅读(2042) 评论(0) 推荐(0)
2019年10月23日
vb.net 改变 excel 底色
摘要： Dim excelApplication AsNew Excel.Application Dim excelWorkBook As Excel.Workbook = excelApplication.Workbooks.Add() Dim excelWorkSheet As Excel.Worksh 阅读全文
posted @ 2019-10-23 10:54 gaoleionline 阅读(520) 评论(0) 推荐(0)
2019年10月21日
Oracle 的查询组合语句
摘要： select a.core_txn_srl_no||a.c_dept||a.c_batch||lpad(a.c_opr_no,5,'0')||case a.txn_dr_cr_ind when '借' then '01' when '贷' then '02' end TICD from GENCNO 阅读全文
posted @ 2019-10-21 16:55 gaoleionline 阅读(280) 评论(0) 推荐(0)