摘要：
//选项卡 Dictionary<string, XtraTabPage> dictXtraTabPage = new Dictionary<string, XtraTabPage>(); Dictionary<string, Form> dictXtraForm = new Dictionary< 阅读全文
摘要：
//在DataGridView的PreviewKeyDown事件中 private void dataGridView1_PreviewKeyDown(object sender, PreviewKeyDownEventArgs e) { if (e.Control && e.KeyCode == 阅读全文
摘要：
--申明一个游标DECLARE MyCursor CURSOR FOR SELECT TOP 5 FBookName,FBookCoding FROM TBookInfo --打开一个游标 OPEN MyCursor --循环一个游标DECLARE @BookName nvarchar(2000), 阅读全文
摘要：
加减日期 dateadd(Month,+1,getdate()) 月份加1dateadd(day,+1,getdate()) 天数加1dateadd(year,+1,getdate()) 年份加1 两个时间点的日期数 DATEDIFF(day, T.Adddate,B.Adddate)DATEDIF 阅读全文
摘要：
Sub sheet转独立文件()Dim sht As WorksheetApplication.ScreenUpdating = Falseipath = ThisWorkbook.Path &"\"For Each sht In Sheetssht.CopyActiveWorkbook.SaveA 阅读全文
摘要：
Sub CFGZB() Dim myRange As Variant Dim myArray Dim titleRange As Range Dim title As String Dim columnNum As Integer myRange = Application.InputBox(pro 阅读全文
摘要：
Sub PicturesInsert()Attribute PicturesInsert.VB_ProcData.VB_Invoke_Func = "f \n14" Dim i, arr, str, typ, shp On Error Resume Next '忽略运行中可能出现的错误 Applic 阅读全文
摘要：
Private Sub 导出图片_Click() Application.ScreenUpdating = False On Error Resume Next MkDir ThisWorkbook.Path & "\图片" ActiveSheet.Shapes For Each PIC In Sh 阅读全文
