摘要: Public Sub SavetheattachmentNew(Item As Outlook.MailItem) Dim olApp As New Outlook.Application Dim nmsName As Outlook.NameSpace Dim vItem As Object Se 阅读全文
posted @ 2021-04-01 15:57 kinyu 阅读(89) 评论(0) 推荐(0)
摘要: Sub connSQL() Dim t'获取系统当前时间t = Year(Now) & "." & Month(Now) & "." & Day(Now) & "-" & Hour(Now) & "." & Minute(Now) & "." & Second(Now)Dim fileName, s 阅读全文
posted @ 2021-04-01 15:46 kinyu 阅读(62) 评论(0) 推荐(0)
摘要: function ImportDataFun(){ var Trans_Index=document.getElementById("Trans_Index").value; var PN=document.getElementById("PN").value; var ZH_Lot=documen 阅读全文
posted @ 2021-04-01 15:43 kinyu 阅读(95) 评论(0) 推荐(0)
摘要: 如需在表中添加列,请使用下面的语法: ALTER TABLE table_name ADD column_name datatype 如需删除表中的列,请使用下面的语法(请注意,某些数据库系统不允许这种在数据库表中删除列的方式): ALTER TABLE table_name DROP COLUMN 阅读全文
posted @ 2021-02-19 10:48 kinyu 阅读(49) 评论(0) 推荐(0)
摘要: 1.采用 File /** 读取指定路径下的文件名和目录名*/public void getFileList() {//File file = new File("\\\\zh29\\");File file = new File("C:\\Users\\29\\");File[] fileList 阅读全文
posted @ 2021-02-08 15:54 kinyu 阅读(279) 评论(0) 推荐(0)