摘要：
//修改奖惩生效日期，将本月26号改至次月1号@alina 2014-12-30using System;using System.Collections;using System.ComponentModel;using System.Data;using System.Data.SqlClien... 阅读全文
摘要：
需为2003版本private void button1_Click(object sender, EventArgs e) { string resultFile = ""; OpenFileDialog openFileDialog1 = new OpenFileDialog(); openFi... 阅读全文
摘要：
（看了个好帖子，特转发如下）换行符的问题，总结如下：textbox中换行符为："\r\n"windows中的换行符（即：Environment.newline）为"\r\n"messagebox.show()的换行符为"\n"从数据库中读取出来，换行符变成"\n","\r"丢失，为正确显示格式，将"... 阅读全文
摘要：
public static DataTable ExcelToDataTable(string strExcelFileName, string strSheetName) { //源的定义 //string strConn = "Provider=Microsoft.Ace.OLEDB.12.0;... 阅读全文
摘要：
代码如下：using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.T... 阅读全文
摘要：
dim dt_temp as datatable=db_query(sql).tables(0)for i=0 to dt_temp.rows.count-1 dim is_exsit as boolean=false dim row as datarow=dt.newrow() try dim document_out as xmldocument=new xmldocument dim document_in as xmldocument=new xmldocument document_out.loadxml(dt_temp.rows(i)("outxml").tos 阅读全文
摘要：
select[部门名称] = c.name,[工号] = b.code,[姓名] = b.cnname,[到职日期] = b.jobdate,[离职日期] = b.lastworkdate,[大过] = sum(case when d.name='大过' then a.times else 0 end ),[小过] = sum(case when d.name='小过' then 1 else 0 end ) ,[警告] = sum(case when d.name='警告' then 1 else 0 end ) ,[大功] = sum(cas 阅读全文
摘要：
Public Sub Load_Excel_Details(ByVal fileLPATH As String, ByVal dt As DataTable) 'Extracting from database Dim col, row As Integer Dim Excel As Object = CreateObject("Excel.Application") If Excel Is Nothing Then MsgBox("It appears that Excel is not installed on this machine. This o 阅读全文