If name > "" Then
wb.AppendCookie("name ", name)
dr = DataTables("职工信息总表").SQLFind("姓名 ='" & name & "'")
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
book.AddDataTable("职工信息总表","学校档案","Select * from {职工信息总表} where 姓名 ='“ & e.Cookies("name ") & ”'")