01 2021 档案
摘要:'验证数据是否有效性 Function IsValidationData(ByVal Target As Range, columnNuber As Integer) On Error GoTo Line If Sheets("Sheet1").Cells(Target.Row, columnNub
阅读全文
摘要:使用Byte存储后转成string输出 '二分之一 Dim towSecondByte(1) As Byte, towSecondStr As String towSecondByte(0) = 189 towSecondByte(1) = 0 towSecondStr = towSecondByt
阅读全文
摘要:Dim BrandStr As String '获取品牌名称 BrandStr = Sheets("Sheet1").Cells(Target.Row, 2).Value '根据产品名称条件设置行 Select Case BrandStr Case "Time and Tru 普楦" If Shee
阅读全文
摘要:'Execl打开执行 Private Sub Workbook_Open() Dim selectStr As String Dim selectCellNum As Integer '获取Sheet2的A列有效行数 selectCellNum = Sheets("Sheet2").[A65536]
阅读全文
摘要:情景:发布到IIS上出现 执行 项目.exe出现 参照:https://blog.csdn.net/jackbon8/article/details/82702563 直接下载了IISCrypto.exe执行,之后正常运行(这个执行完立即自动重启) 思考: 1.碰到这类部署问题先查询一下本地和服务器
阅读全文
摘要:使用AdminLTE-3.0.5框架中用到的一个翻页控件 官网地址:http://datatables.club/ 引用: <link rel="stylesheet" href="/plugins/datatables-bs4/css/dataTables.bootstrap4.min.css">
阅读全文
摘要:在此记录下: 正常情况下我们的data:$('#form').serialize(),但是这个只是序列化了表单的数据,不带上file文件,并且,我们需要使用原生的JS获取form( document.getElementById),这和JQ的$('#form') 获取到的对象的节点不一样 var f
阅读全文