- 博客(164)
- 资源 (1)
- 收藏
- 关注
原创 C#内存表数据透视表生成
using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data;namespace GT{ /// <summary> /// 内存表透视表生成器 2020.3.10 /// 调用方法new PivotTable...
2020-03-10 16:11:02 505 1
原创 Excel浮点数比较
最近有一个需求:1. 小于10kg,保留1位小数(四舍五入)2. 大于等于10kg且小于100kg,先保留2位(四舍五入),然后保留1位(0.5整数位,2退3进7退8进)3. 大于100kg,保留整数(四舍五入)完整公式如下:=if(A1-10<-1E-8,ROUND(A1,1),IF(A1-100<1E-8,INT(ROUND(A1,1)*2)/2+IF(MOD...
2020-02-28 15:37:35 683
原创 openxml输出excel文件带格式样式
private void btnTest_Click(object sender, EventArgs e) { ((Button)sender).Enabled = false; string dir = MyCommon.GetDeskTopTimeDir(); string filename = A...
2020-02-11 07:15:36 614 1
原创 openxml创建excel文件
// WorkbookPart -> Workbook // (上面 (wbPart.AddNewPart<WorksheetPart>) )WorksheetPart -> Worksheet -> SheetData //Sheets Sheet WorksheetPart Worksh...
2020-02-09 10:34:04 406
原创 sqlserver 字段长度大于数据库表字段或者内存表与数据库表字段不匹配提示
DataTable dtCompare = new DataTable(); dtCompare.Columns.Add("FieldName", typeof(string)); dtCompare.Columns.Add("FieldType", typeof(string)); ...
2020-02-01 15:51:04 1199
原创 wpf选择文件
private void btnOpenXlsx_Click(object sender, RoutedEventArgs e) { var openFileDialog = new Microsoft.Win32.OpenFileDialog() { Filter = "Excel ...
2020-01-31 05:59:40 254
原创 wpf单例及带参数调用
using System;using System.Collections.Generic;using System.Configuration;using System.Data;using System.Diagnostics;using System.Linq;using System.Windows;namespace FM{ /// <summary&g...
2020-01-31 05:55:37 552
原创 ACCESS生成GUID
Function CreateGuid(ParamArray S() As Variant) As String CreateGuid = "{" + LCase(Mid$(CreateObject("Scriptlet.TypeLib").Guid, 2, 36)) + "}"End Function
2019-12-28 20:56:23 954
原创 OpenXML方式输出到Excel(考虑超百万)
/// <summary> /// 输出到单个Excel文件,考虑超100万的数据 2019.12.24 /// </summary> /// <param name="config"></param> /// <param name="xlsxFilename"...
2019-12-24 15:15:05 914 1
原创 wpf播放器
原文:https://www.cnblogs.com/tianma3798/p/5928217.htmlusing System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;using System.Windows;using S...
2019-12-23 10:07:54 155
原创 OpenXml之SpreadSheetML学习
需要引用windowsbaseusing System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;using DocumentFormat.OpenXml;using DocumentFormat.OpenXml.Packa...
2019-12-22 17:05:24 295
原创 Sqlserver各个表记录数
SELECT object_name(i.id) TableName, rowCount as RowCnt FROM sysindexes i INNER JOIN sysObjects o ON (o.id = i.id AND o.xType = 'U ') WHERE indid < 2 ORDER BY TableName
2019-11-24 11:48:16 185
原创 vba正则拆分字符串
Option ExplicitSub test() Dim i As Long For i = 2 To Sheet1.Range("A1000000").End(xlUp).Row Sheet1.Cells(i, 2) = GetStr(Sheet1.Cells(i, 1).Value, "^.*[a-zA-Z](?=\d)") ...
2019-11-11 11:09:57 1884 2
原创 vba利用自动筛选按任意列拆分成多工作表
Option ExplicitSub main() Dim colNo As Integer, sht As Worksheet, lastRow As Long, i As Long, flag As Boolean colNo = InputBox("col no:") Excel.Application.DisplayAlerts = Fals...
2019-11-10 10:47:24 1132
原创 面向对象思维拆分工资条
测试代码Sub Add() Dim st As New SalaryTableCalss st.Create ActiveSheet st.AddTitleEnd SubSub Delete() Dim st As New SalaryTableCalss st.Create ActiveSheet st.DeleteOtherLin...
2019-11-08 10:25:02 109
原创 sqlserver删除重复项
1.找出含有重复项的id2.保留各组第一条记录DELETE FROM dbo.CJB WHERE OBJECT_ID IN ( SELECT t.OBJECT_ID oid FROM ( SELECT OBJECT_ID,ROW_NUMBER() OVER(PARTITION BY CJB.YJZH ORDER BY YJZH) xh FROM d...
2019-11-01 12:03:45 130
原创 vba隐藏不要的行
如,当前单元格的内容是 5,6,7,则仅显示5,6,7行,其余行隐藏Sub HIDE() Dim v As String, lines, i, firstLine, isFirstLine As Boolean v = ActiveCell.Value lines = Split(v, ",") ActiveSheet.Rows.Hidden =...
2019-10-29 18:44:57 1777
原创 c#以不同方式显示表
disp2 "**|**|**"disp1 关键列(MC)结果:将拆分后的DISP2作为关键列,DISP1组合起来显示先记录草稿,需要进一步优化 DataTable dt = new CombindSearch(prj.Bl.GetConStr(), "XMLB", "mc", "sflp", "项目名称", "是否录屏").GetNewDt();...
2019-10-17 10:47:15 172
原创 c#在容器中动态创建按钮并绑定事件
private void Form1_Load(object sender, EventArgs e) { string configPath = @"E:\新建文件夹\ImportConfig.xml"; config = new ImportConfig(configPath); for...
2019-10-12 07:47:57 600
原创 c#四舍五入
decimal jfzl = Math.Round(Convert.ToDecimal(dr["JFZL"]), 0, MidpointRounding.AwayFromZero); dr["XJFZL"] = jfzl;
2019-10-10 20:59:00 109
原创 vba调用exe(shell)
Sub test() Dim wb As Workbook Set wb = ActiveWorkbook 'MsgBox wb.FullName Shell "d:\user\845744\desktop\项目管理\GT\GT\bin\Debug\Gt.exe " & wb.FullName & " mc sflp 项目名称 是否录屏", vbN...
2019-10-09 20:47:11 2998
原创 java利用poi导入excel文件(xlsx)到sqlserver数据库
Client.javapackage cn.appkit.cpmis;public class Client { public static void main(String[] args) throws Exception { long start = System.currentTimeMillis(); String filename = "C:\\Users\\Adm...
2019-09-21 12:02:34 1142
原创 动态代理proxy
摘自马士兵老师教程Client.javapackage com.bjsxt.proxy;public class Client { public static void main(String[] args) throws Exception { Tank t = new Tank(); InvocationHandler h = new TimeHandler(t...
2019-09-18 15:52:09 132
原创 java利用dom/jdom解析XML
xml:<?xml version="1.0" encoding="UTF-8"?><beans> <bean id="v" class="com.bjsxt.spring.factory.Train"> </bean></beans>jdom:package com.bjsxt.spring.factor...
2019-08-23 21:49:24 95
原创 poi读取excel文件
package cn.appkit.cpm.importor;import java.io.FileInputStream;import org.apache.poi.ss.usermodel.Cell;import org.apache.poi.ss.usermodel.Row;import org.apache.poi.ss.usermodel.Sheet;import org...
2019-08-18 15:25:49 91
原创 SQLSERVER实现多列IN的几种方法
1. EXISTSSELECT a.OBJECT_ID,ROW_NUMBER() OVER (PARTITION BY a.FHMDDM,a.SHMDDM,a.SJQJRJ ORDER BY a.HH) ,a.YDH,a.FHMDDM,a.SHMDDM,a.SJQJRJFROM dbo.CBZD a WHERE a.JFZL IS NOT NULL AND EXISTS (S...
2019-08-04 10:57:46 3304
原创 c#非工作日计算
/* 2019.7.25,计算扣除非工作日天数*/ using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Data;using CpmBigDataImportService;namespace GT{ /// <s...
2019-08-03 21:47:57 188
原创 C#浮点数doublue比较
public class THKK : DealDR { public DataRow DealDataRow(DataRow dr) { double jfzl = double.Parse(dr["jfzl"].ToString()); double sz = double.Parse(dr["s...
2019-08-03 21:44:13 885
原创 C#更新sqlserver数据库方法
1. DataAdapter+SqlCommandBuilder(效率低,适用于少量数据) /// <summary> /// 更新数据 /// </summary> public void UpdateData() { for (int i = 0; i < ...
2019-08-03 20:25:32 2278
原创 SQLSERVER修改primarykey,unique
ALTER TABLE dbo.CBZD ADD PRIMARY KEY (OBJECT_ID)GOALTER TABLE dbo.CBZD ALTER COLUMN WJM NVARCHAR(100) NOT NULLGOALTER TABLE dbo.CBZD ALTER COLUMN HH INT NOT NULLGOALTER TABLE dbo.CBZD ADD UN...
2019-08-03 15:07:19 244
原创 c#设置sqlserver用户sa为10位数随机密码并输出文本
using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;using System.Text.RegularExpressions;using System.IO;using CpmBigDataImportServi...
2019-08-02 16:06:44 267
原创 C#生成指定位数包含字母与数字随机密码
public static string GetPassword(int length) { string code = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"; Random rand = new Random(); ...
2019-08-02 09:26:23 441
原创 python创建目录并用资源管理器打开
# coding=utf-8 import osimport datetimecurrentday = datetime.date.today().strftime('%Y%m%d')dir = 'e:\\工作记录\\' + currentdayif not os.path.exists(dir): os.makedirs(dir)os.system('explorer...
2019-07-31 21:53:00 976 1
原创 SqlServer查询数据库各个表记录数
SELECT t0.name,t1.rows FROM sys.sysobjects t0 JOIN sys.sysindexes t1 ON t0.id = t1.idWHERE t0.xtype='u'ORDER BY t1.rows DESC
2019-07-31 11:21:49 1358
原创 C# CLR 无法从 COM 上下文 0xc17de0 转换为 COM 上下文 0xc18030,这种状态已持续 60 秒解决办法
VS 2013调试 => 异常 => ManagedDebuggingAssistants => ContextSwitchDeadlock 引发的勾去掉
2019-07-31 11:09:41 1748
原创 c#抓取网页并用HtmlAgilityPack解析
pm:Install-Package HtmlAgilityPack -Version 1.11.12 private void button1_Click(object sender, EventArgs e) { string url_base = "https://www.qiushuzw.com/t"; ...
2019-07-29 17:22:37 272
原创 win7 powershell
win7默认powershell为2.01. 静默安装win+r ... /quiet2. 权限无法加载文件 D:\测试\修改MSSQL连接字符串端口部分.ps1,因为在此系统上禁止运行脚本。Set-ExecutionPolicy RemoteSigned3. 操作xml示例$filename = "D:\IEDI\JAppkit\engine.xml"$doc =...
2019-07-28 11:40:08 368
原创 命令行关闭文件打开时安全警告
运行以下批处理echo onreg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Associations /v ModRiskFileTypes /t REG_SZ /d .exe;.bat /fgpupdate /forcepauseecho off
2019-07-28 09:26:35 712
原创 Python操作xml
xml文件<?xml version="1.0" encoding="utf-8"?><config> <item> <item-name>Browser</item-name> <item-path>Appkit/Tools</item-path> ...
2019-07-27 17:56:21 109
原创 win7安装python3.7.4错误api-ms-win-crt-processl1-1-1-0.dll解决办法
win7安装python3.7.4有时会遇到以下错误:解决办法如下:1. 卸载python2. 在https://www.microsoft.com/zh-cn/download/details.aspx?id=48145下载vc_redist.x86.exe。3. 删除Windows\SysWOW64下文件api-ms-win-crt-runtime-l1-1-0.dll...
2019-07-27 11:52:06 2139 3
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人