专家坐堂-帮我重新整合一下吧，老说被另外的程序打开Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮我重新整合一下吧，老说被另外的程序打开  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89225)

--  作者：hongyefor
--  发布时间：2016/8/17 15:33:00
--  帮我重新整合一下吧，老说被另外的程序打开

Dim TSY1 As WinForm.TextBox = e.Form.Controls("Tsy_1")
Dim TSY2 As WinForm.TextBox = e.Form.Controls("Tsy_2")
Dim TSY3 As WinForm.TextBox = e.Form.Controls("Tsy_3")
Dim TSY4 As WinForm.TextBox = e.Form.Controls("Tsy_4")
Dim TSY5 As WinForm.TextBox = e.Form.Controls("Tsy_5")
Dim TSY6 As WinForm.TextBox = e.Form.Controls("Tsy_6")
Dim TSY7 As WinForm.TextBox = e.Form.Controls("Tsy_7")
Dim tg1 As WinForm.TextBox = e.Form.Controls("Tg_1")
Dim tg2 As WinForm.TextBox = e.Form.Controls("Tg_2")
Dim tg3 As WinForm.TextBox = e.Form.Controls("Tg_3")
Dim tg4 As WinForm.TextBox = e.Form.Controls("Tg_4")
Dim tg5 As WinForm.TextBox = e.Form.Controls("Tg_5")
Dim tg6 As WinForm.TextBox = e.Form.Controls("Tg_6")
Dim tg7 As WinForm.TextBox = e.Form.Controls("Tg_7")
Dim ts11 As WinForm.TextBox = e.Form.Controls("Ts_1_1")
Dim ts12 As WinForm.TextBox = e.Form.Controls("Ts_1_2")
Dim ts13 As WinForm.TextBox = e.Form.Controls("Ts_1_3")
Dim ts14 As WinForm.TextBox = e.Form.Controls("Ts_1_4")
Dim ts15 As WinForm.TextBox = e.Form.Controls("Ts_1_5")
Dim ts16 As WinForm.TextBox = e.Form.Controls("Ts_1_6")
Dim ts17 As WinForm.TextBox = e.Form.Controls("Ts_1_7")
Dim ts21 As WinForm.TextBox = e.Form.Controls("Ts_2_1")
Dim ts22 As WinForm.TextBox = e.Form.Controls("Ts_2_2")
Dim ts23 As WinForm.TextBox = e.Form.Controls("Ts_2_3")
Dim ts24 As WinForm.TextBox = e.Form.Controls("Ts_2_4")
Dim ts25 As WinForm.TextBox = e.Form.Controls("Ts_2_5")
Dim ts26 As WinForm.TextBox = e.Form.Controls("Ts_2_6")
Dim ts27 As WinForm.TextBox = e.Form.Controls("Ts_2_7")
Dim ts31 As WinForm.TextBox = e.Form.Controls("Ts_3_1")
Dim ts32 As WinForm.TextBox = e.Form.Controls("Ts_3_2")
Dim ts33 As WinForm.TextBox = e.Form.Controls("Ts_3_3")
Dim ts34 As WinForm.TextBox = e.Form.Controls("Ts_3_4")
Dim ts35 As WinForm.TextBox = e.Form.Controls("Ts_3_5")
Dim ts36 As WinForm.TextBox = e.Form.Controls("Ts_3_6")
Dim ts37 As WinForm.TextBox = e.Form.Controls("Ts_3_7")
Dim ts41 As WinForm.TextBox = e.Form.Controls("Ts_4_1")
Dim ts42 As WinForm.TextBox = e.Form.Controls("Ts_4_2")
Dim ts43 As WinForm.TextBox = e.Form.Controls("Ts_4_3")
Dim ts44 As WinForm.TextBox = e.Form.Controls("Ts_4_4")
Dim ts45 As WinForm.TextBox = e.Form.Controls("Ts_4_5")
Dim ts46 As WinForm.TextBox = e.Form.Controls("Ts_4_6")
Dim ts47 As WinForm.TextBox = e.Form.Controls("Ts_4_7")
Dim ts51 As WinForm.TextBox = e.Form.Controls("Ts_5_1")
Dim ts52 As WinForm.TextBox = e.Form.Controls("Ts_5_2")
Dim ts53 As WinForm.TextBox = e.Form.Controls("Ts_5_3")
Dim ts54 As WinForm.TextBox = e.Form.Controls("Ts_5_4")
Dim ts55 As WinForm.TextBox = e.Form.Controls("Ts_5_5")
Dim ts56 As WinForm.TextBox = e.Form.Controls("Ts_5_6")
Dim ts57 As WinForm.TextBox = e.Form.Controls("Ts_5_7")
Dim ts61 As WinForm.TextBox = e.Form.Controls("Ts_6_1")
Dim ts62 As WinForm.TextBox = e.Form.Controls("Ts_6_2")
Dim ts63 As WinForm.TextBox = e.Form.Controls("Ts_6_3")
Dim ts64 As WinForm.TextBox = e.Form.Controls("Ts_6_4")
Dim ts65 As WinForm.TextBox = e.Form.Controls("Ts_6_5")
Dim ts66 As WinForm.TextBox = e.Form.Controls("Ts_6_6")
Dim ts67 As WinForm.TextBox = e.Form.Controls("Ts_6_7")
Dim ts71 As WinForm.TextBox = e.Form.Controls("Ts_7_1")
Dim ts72 As WinForm.TextBox = e.Form.Controls("Ts_7_2")
Dim ts73 As WinForm.TextBox = e.Form.Controls("Ts_7_3")
Dim ts74 As WinForm.TextBox = e.Form.Controls("Ts_7_4")
Dim ts75 As WinForm.TextBox = e.Form.Controls("Ts_7_5")
Dim ts76 As WinForm.TextBox = e.Form.Controls("Ts_7_6")
Dim ts77 As WinForm.TextBox = e.Form.Controls("Ts_7_7")
Dim ts81 As WinForm.Label = e.Form.Controls("Ts_8_1")
Dim ts82 As WinForm.Label = e.Form.Controls("Ts_8_2")
Dim ts83 As WinForm.Label = e.Form.Controls("Ts_8_3")
Dim ts84 As WinForm.Label = e.Form.Controls("Ts_8_4")
Dim ts85 As WinForm.Label = e.Form.Controls("Ts_8_5")
Dim ts86 As WinForm.Label = e.Form.Controls("Ts_8_6")
Dim ts87 As WinForm.Label = e.Form.Controls("Ts_8_7")
Dim TBp11 As WinForm.TextBox = e.Form.Controls("TBp_1_1")
Dim TBp12 As WinForm.TextBox = e.Form.Controls("TBp_1_2")
Dim TBp13 As WinForm.TextBox = e.Form.Controls("TBp_1_3")
Dim TBp21 As WinForm.TextBox = e.Form.Controls("TBp_2_1")
Dim TBp22 As WinForm.TextBox = e.Form.Controls("TBp_2_2")
Dim TBp23 As WinForm.TextBox = e.Form.Controls("TBp_2_3")
Dim TBp31 As WinForm.TextBox = e.Form.Controls("TBp_3_1")
Dim TBp32 As WinForm.TextBox = e.Form.Controls("TBp_3_2")
Dim TBp33 As WinForm.TextBox = e.Form.Controls("TBp_3_3")
Dim TBp41 As WinForm.TextBox = e.Form.Controls("TBp_4_1")
Dim TBp42 As WinForm.TextBox = e.Form.Controls("TBp_4_2")
Dim TBp43 As WinForm.TextBox = e.Form.Controls("TBp_4_3")
Dim TBp51 As WinForm.TextBox = e.Form.Controls("TBp_5_1")
Dim TBp52 As WinForm.TextBox = e.Form.Controls("TBp_5_2")
Dim TBp53 As WinForm.TextBox = e.Form.Controls("TBp_5_3")
Dim TBp61 As WinForm.TextBox = e.Form.Controls("TBp_6_1")
Dim TBp62 As WinForm.TextBox = e.Form.Controls("TBp_6_2")
Dim TBp63 As WinForm.TextBox = e.Form.Controls("TBp_6_3")
Dim TBp71 As WinForm.TextBox = e.Form.Controls("TBp_7_1")
Dim TBp72 As WinForm.TextBox = e.Form.Controls("TBp_7_2")
Dim TBp73 As WinForm.TextBox = e.Form.Controls("TBp_7_3")
Dim TBp81 As WinForm.TextBox = e.Form.Controls("TBp_8_1")
Dim TBp82 As WinForm.TextBox = e.Form.Controls("TBp_8_2")
Dim TBp83 As WinForm.TextBox = e.Form.Controls("TBp_8_3")
Dim Tml11 As WinForm.TextBox = e.Form.Controls("Tml_1_1")
Dim Tml12 As WinForm.DropDownBox = e.Form.Controls("Tml_1_2")
Dim Tml13 As WinForm.TextBox = e.Form.Controls("Tml_1_3")
Dim Tml15 As WinForm.TextBox = e.Form.Controls("Tml_1_5")
Dim Tml16 As WinForm.TextBox = e.Form.Controls("Tml_1_6")
Dim Tml17 As WinForm.TextBox = e.Form.Controls("Tml_1_7")
Dim Tml18 As WinForm.TextBox = e.Form.Controls("Tml_1_8")
Dim Tml19 As WinForm.TextBox = e.Form.Controls("Tml_1_9")
Dim Tml21 As WinForm.TextBox = e.Form.Controls("Tml_2_1")
Dim Tml22 As WinForm.DropDownBox = e.Form.Controls("Tml_2_2")
Dim Tml23 As WinForm.TextBox = e.Form.Controls("Tml_2_3")
Dim Tml25 As WinForm.TextBox = e.Form.Controls("Tml_2_5")
Dim Tml26 As WinForm.TextBox = e.Form.Controls("Tml_2_6")
Dim Tml27 As WinForm.TextBox = e.Form.Controls("Tml_2_7")
Dim Tml28 As WinForm.TextBox = e.Form.Controls("Tml_2_8")
Dim Tml29 As WinForm.TextBox = e.Form.Controls("Tml_2_9")
Dim Tml31 As WinForm.TextBox = e.Form.Controls("Tml_3_1")
Dim Tml32 As WinForm.DropDownBox = e.Form.Controls("Tml_3_2")
Dim Tml33 As WinForm.TextBox = e.Form.Controls("Tml_3_3")
Dim Tml35 As WinForm.TextBox = e.Form.Controls("Tml_3_5")
Dim Tml36 As WinForm.TextBox = e.Form.Controls("Tml_3_6")
Dim Tml37 As WinForm.TextBox = e.Form.Controls("Tml_3_7")
Dim Tml38 As WinForm.TextBox = e.Form.Controls("Tml_3_8")
Dim Tml39 As WinForm.TextBox = e.Form.Controls("Tml_3_9")
Dim Tml41 As WinForm.TextBox = e.Form.Controls("Tml_4_1")
Dim Tml42 As WinForm.DropDownBox = e.Form.Controls("Tml_4_2")
Dim Tml43 As WinForm.TextBox = e.Form.Controls("Tml_4_3")
Dim Tml45 As WinForm.TextBox = e.Form.Controls("Tml_4_5")
Dim Tml46 As WinForm.TextBox = e.Form.Controls("Tml_4_6")
Dim Tml47 As WinForm.TextBox = e.Form.Controls("Tml_4_7")
Dim Tml48 As WinForm.TextBox = e.Form.Controls("Tml_4_8")
Dim Tml49 As WinForm.TextBox = e.Form.Controls("Tml_4_9")
Dim Tml51 As WinForm.TextBox = e.Form.Controls("Tml_5_1")
Dim Tml52 As WinForm.DropDownBox = e.Form.Controls("Tml_5_2")
Dim Tml53 As WinForm.TextBox = e.Form.Controls("Tml_5_3")
Dim Tml55 As WinForm.TextBox = e.Form.Controls("Tml_5_5")
Dim Tml56 As WinForm.TextBox = e.Form.Controls("Tml_5_6")
Dim Tml57 As WinForm.TextBox = e.Form.Controls("Tml_5_7")
Dim Tml58 As WinForm.TextBox = e.Form.Controls("Tml_5_8")
Dim Tml59 As WinForm.TextBox = e.Form.Controls("Tml_5_9")
Dim Tml61 As WinForm.TextBox = e.Form.Controls("Tml_6_1")
Dim Tml62 As WinForm.DropDownBox = e.Form.Controls("Tml_6_2")
Dim Tml63 As WinForm.TextBox = e.Form.Controls("Tml_6_3")
Dim Tml65 As WinForm.TextBox = e.Form.Controls("Tml_6_5")
Dim Tml66 As WinForm.TextBox = e.Form.Controls("Tml_6_6")
Dim Tml67 As WinForm.TextBox = e.Form.Controls("Tml_6_7")
Dim Tml68 As WinForm.TextBox = e.Form.Controls("Tml_6_8")
Dim Tml69 As WinForm.TextBox = e.Form.Controls("Tml_6_9")
Dim Tml71 As WinForm.TextBox = e.Form.Controls("Tml_7_1")
Dim Tml72 As WinForm.DropDownBox = e.Form.Controls("Tml_7_2")
Dim Tml73 As WinForm.TextBox = e.Form.Controls("Tml_7_3")
Dim Tml75 As WinForm.TextBox = e.Form.Controls("Tml_7_5")
Dim Tml76 As WinForm.TextBox = e.Form.Controls("Tml_7_6")
Dim Tml77 As WinForm.TextBox = e.Form.Controls("Tml_7_7")
Dim Tml78 As WinForm.TextBox = e.Form.Controls("Tml_7_8")
Dim Tml79 As WinForm.TextBox = e.Form.Controls("Tml_7_9")
Dim Tml81 As WinForm.TextBox = e.Form.Controls("Tml_8_1")
Dim Tml82 As WinForm.DropDownBox = e.Form.Controls("Tml_8_2")
Dim Tml83 As WinForm.TextBox = e.Form.Controls("Tml_8_3")
Dim Tml85 As WinForm.TextBox = e.Form.Controls("Tml_8_5")
Dim Tml86 As WinForm.TextBox = e.Form.Controls("Tml_8_6")
Dim Tml87 As WinForm.TextBox = e.Form.Controls("Tml_8_7")
Dim Tml88 As WinForm.TextBox = e.Form.Controls("Tml_8_8")
Dim Tml89 As WinForm.TextBox = e.Form.Controls("Tml_8_9")
Dim Tml91 As WinForm.TextBox = e.Form.Controls("Tml_9_1")
Dim Tml92 As WinForm.DropDownBox = e.Form.Controls("Tml_9_2")
Dim Tml93 As WinForm.TextBox = e.Form.Controls("Tml_9_3")
Dim Tml95 As WinForm.TextBox = e.Form.Controls("Tml_9_5")
Dim Tml96 As WinForm.TextBox = e.Form.Controls("Tml_9_6")
Dim Tml97 As WinForm.TextBox = e.Form.Controls("Tml_9_7")
Dim Tml98 As WinForm.TextBox = e.Form.Controls("Tml_9_8")
Dim Tml99 As WinForm.TextBox = e.Form.Controls("Tml_9_9")
Dim DBF11 As WinForm.DropDownBox = e.Form.Controls("DBF_1_1")
Dim DBF21 As WinForm.TextBox = e.Form.Controls("DBF_2_1")
Dim DBF31 As WinForm.TextBox = e.Form.Controls("DBF_3_1")
Dim DBF41 As WinForm.TextBox = e.Form.Controls("DBF_4_1")
Dim DBF51 As WinForm.TextBox = e.Form.Controls("DBF_5_1")
Dim DBF61 As WinForm.TextBox = e.Form.Controls("DBF_6_1")
Dim DBF71 As WinForm.TextBox = e.Form.Controls("DBF_7_1")
Dim DBF12 As WinForm.DropDownBox = e.Form.Controls("DBF_1_2")
Dim DBF22 As WinForm.TextBox = e.Form.Controls("DBF_2_2")
Dim DBF32 As WinForm.TextBox = e.Form.Controls("DBF_3_2")
Dim DBF42 As WinForm.TextBox = e.Form.Controls("DBF_4_2")
Dim DBF52 As WinForm.TextBox = e.Form.Controls("DBF_5_2")
Dim DBF62 As WinForm.TextBox = e.Form.Controls("DBF_6_2")
Dim DBF72 As WinForm.TextBox = e.Form.Controls("DBF_7_2")
Dim DBF13 As WinForm.DropDownBox = e.Form.Controls("DBF_1_3")
Dim DBF23 As WinForm.TextBox = e.Form.Controls("DBF_2_3")
Dim DBF33 As WinForm.TextBox = e.Form.Controls("DBF_3_3")
Dim DBF43 As WinForm.TextBox = e.Form.Controls("DBF_4_3")
Dim DBF53 As WinForm.TextBox = e.Form.Controls("DBF_5_3")
Dim DBF63 As WinForm.TextBox = e.Form.Controls("DBF_6_3")
Dim DBF73 As WinForm.TextBox = e.Form.Controls("DBF_7_3")
Dim DBF14 As WinForm.DropDownBox = e.Form.Controls("DBF_1_4")
Dim DBF24 As WinForm.TextBox = e.Form.Controls("DBF_2_4")
Dim DBF34 As WinForm.TextBox = e.Form.Controls("DBF_3_4")
Dim DBF44 As WinForm.TextBox = e.Form.Controls("DBF_4_4")
Dim DBF54 As WinForm.TextBox = e.Form.Controls("DBF_5_4")
Dim DBF64 As WinForm.TextBox = e.Form.Controls("DBF_6_4")
Dim DBF74 As WinForm.TextBox = e.Form.Controls("DBF_7_4")
Dim DBF15 As WinForm.DropDownBox = e.Form.Controls("DBF_1_5")
Dim DBF25 As WinForm.TextBox = e.Form.Controls("DBF_2_5")
Dim DBF35 As WinForm.TextBox = e.Form.Controls("DBF_3_5")
Dim DBF45 As WinForm.TextBox = e.Form.Controls("DBF_4_5")
Dim DBF55 As WinForm.TextBox = e.Form.Controls("DBF_5_5")
Dim DBF65 As WinForm.TextBox = e.Form.Controls("DBF_6_5")
Dim DBF75 As WinForm.TextBox = e.Form.Controls("DBF_7_5")
Dim DBF16 As WinForm.DropDownBox = e.Form.Controls("DBF_1_6")
Dim DBF26 As WinForm.TextBox = e.Form.Controls("DBF_2_6")
Dim DBF36 As WinForm.TextBox = e.Form.Controls("DBF_3_6")
Dim DBF46 As WinForm.TextBox = e.Form.Controls("DBF_4_6")
Dim DBF56 As WinForm.TextBox = e.Form.Controls("DBF_5_6")
Dim DBF66 As WinForm.TextBox = e.Form.Controls("DBF_6_6")
Dim DBF76 As WinForm.TextBox = e.Form.Controls("DBF_7_6")
Dim DBF17 As WinForm.DropDownBox = e.Form.Controls("DBF_1_7")
Dim DBF27 As WinForm.TextBox = e.Form.Controls("DBF_2_7")
Dim DBF37 As WinForm.TextBox = e.Form.Controls("DBF_3_7")
Dim DBF47 As WinForm.TextBox = e.Form.Controls("DBF_4_7")
Dim DBF57 As WinForm.TextBox = e.Form.Controls("DBF_5_7")
Dim DBF67 As WinForm.TextBox = e.Form.Controls("DBF_6_7")
Dim DBF77 As WinForm.TextBox = e.Form.Controls("DBF_7_7")
Dim DBF18 As WinForm.DropDownBox = e.Form.Controls("DBF_1_8")
Dim DBF28 As WinForm.TextBox = e.Form.Controls("DBF_2_8")
Dim DBF38 As WinForm.TextBox = e.Form.Controls("DBF_3_8")
Dim DBF48 As WinForm.TextBox = e.Form.Controls("DBF_4_8")
Dim DBF58 As WinForm.TextBox = e.Form.Controls("DBF_5_8")
Dim DBF68 As WinForm.TextBox = e.Form.Controls("DBF_6_8")
Dim DBF78 As WinForm.TextBox = e.Form.Controls("DBF_7_8")
Dim DBF19 As WinForm.DropDownBox = e.Form.Controls("DBF_1_9")
Dim DBF29 As WinForm.TextBox = e.Form.Controls("DBF_2_9")
Dim DBF39 As WinForm.TextBox = e.Form.Controls("DBF_3_9")
Dim DBF49 As WinForm.TextBox = e.Form.Controls("DBF_4_9")
Dim DBF59 As WinForm.TextBox = e.Form.Controls("DBF_5_9")
Dim DBF69 As WinForm.TextBox = e.Form.Controls("DBF_6_9")
Dim DBF79 As WinForm.TextBox = e.Form.Controls("DBF_7_9")
Dim r As Row = Tables("订单主表").Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单表.xls") \'打开模板
Dim fl As String = "d:/订单信息/"+(r("客户名称")) + "/"+(r("合同号")) +(r("款号")) +" 订单指示.xls"
If FileSys.FileExists("fl") Then \'如果指定的文件存在
    FileSys.DeleteFile("fl",2,2) \'则彻底删除之
End If
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
Dim App1 As New MSExcel.Application
App1.Quit
FileSys.CopyFile(fl, fl, True)

Dim sheet1 As XLS.Sheet = book.Sheets("sheet1")
sheet(3,14).Value = tg1.text
sheet(3,19).Value = tg2.text
sheet(3,24).Value = tg3.text
sheet(3,29).Value = tg4.text
sheet(3,34).Value = tg5.text
sheet(3,39).Value = tg6.text
sheet(3,44).Value = tg7.text
sheet(6,3).Value = TSY1.text
sheet(9,3).Value = TSY2.text
sheet(12,3).Value = TSY3.text
sheet(15,3).Value = TSY4.text
sheet(18,3).Value = TSY5.text
sheet(21,3).Value = TSY6.text
sheet(24,3).Value = TSY7.text
sheet(6,14).Value = ts11.text
sheet(6,19).Value = ts12.text
sheet(6,24).Value = ts13.text
sheet(6,29).Value = ts14.text
sheet(6,34).Value = ts15.text
sheet(6,39).Value = ts16.text
sheet(6,44).Value = ts17.text
sheet(9,14).Value = ts21.text
sheet(9,19).Value = ts22.text
sheet(9,24).Value = ts23.text
sheet(9,29).Value = ts24.text
sheet(9,34).Value = ts25.text
sheet(9,39).Value = ts26.text
sheet(9,44).Value = ts27.text
sheet(12,14).Value = ts31.text
sheet(12,19).Value = ts32.text
sheet(12,24).Value = ts33.text
sheet(12,29).Value = ts34.text
sheet(12,34).Value = ts35.text
sheet(12,39).Value = ts36.text
sheet(12,44).Value = ts37.text
sheet(15,14).Value = ts41.text
sheet(15,19).Value = ts42.text
sheet(15,24).Value = ts43.text
sheet(15,29).Value = ts44.text
sheet(15,34).Value = ts45.text
sheet(15,39).Value = ts46.text
sheet(15,44).Value = ts47.text
sheet(18,14).Value = ts51.text
sheet(18,19).Value = ts52.text
sheet(18,24).Value = ts53.text
sheet(18,29).Value = ts54.text
sheet(18,34).Value = ts55.text
sheet(18,39).Value = ts56.text
sheet(18,44).Value = ts57.text
sheet(21,14).Value = ts61.text
sheet(21,19).Value = ts62.text
sheet(21,24).Value = ts63.text
sheet(21,29).Value = ts64.text
sheet(21,34).Value = ts65.text
sheet(21,39).Value = ts66.text
sheet(21,44).Value = ts67.text
sheet(24,14).Value = ts71.text
sheet(24,19).Value = ts72.text
sheet(24,24).Value = ts73.text
sheet(24,29).Value = ts74.text
sheet(24,34).Value = ts75.text
sheet(24,39).Value = ts76.text
sheet(24,44).Value = ts77.text
sheet(27,14).Value = ts81.text
sheet(27,19).Value = ts82.text
sheet(27,24).Value = ts83.text
sheet(27,29).Value = ts84.text
sheet(27,34).Value = ts85.text
sheet(27,39).Value = ts86.text
sheet(27,44).Value = ts87.text
sheet(6,50).Value = TBp11.text
sheet(6,59).Value = TBp12.text
sheet(6,67).Value = TBp13.text
sheet(9,50).Value = TBp21.text
sheet(9,59).Value = TBp22.text
sheet(9,67).Value = TBp23.text
sheet(12,50).Value = TBp31.text
sheet(12,59).Value = TBp32.text
sheet(12,67).Value = TBp33.text
sheet(15,50).Value = TBp41.text
sheet(15,59).Value = TBp42.text
sheet(15,67).Value = TBp43.text
sheet(18,50).Value = TBp51.text
sheet(18,59).Value = TBp52.text
sheet(18,67).Value = TBp53.text
sheet(21,50).Value = TBp61.text
sheet(21,59).Value = TBp62.text
sheet(21,67).Value = TBp63.text
sheet(24,50).Value = TBp71.text
sheet(24,59).Value = TBp72.text
sheet(24,67).Value = TBp73.text
sheet(28,50).Value = TBp81.text
sheet(28,59).Value = TBp82.text
sheet(28,67).Value = TBp83.text
sheet(34,50).Value = DBF11.text
sheet(34,56).Value = DBF21.text
sheet(34,60).Value = DBF31.text
sheet(34,64).Value = DBF41.text
sheet(34,67).Value = DBF51.text
sheet(34,70).Value = DBF61.text
sheet(34,74).Value = DBF71.text
sheet(37,50).Value = DBF12.text
sheet(37,56).Value = DBF22.text
sheet(37,60).Value = DBF32.text
sheet(37,64).Value = DBF42.text
sheet(37,67).Value = DBF52.text
sheet(37,70).Value = DBF62.text
sheet(37,74).Value = DBF72.text
sheet(40,50).Value = DBF13.text
sheet(40,56).Value = DBF23.text
sheet(40,60).Value = DBF33.text
sheet(40,64).Value = DBF43.text
sheet(40,67).Value = DBF53.text
sheet(40,70).Value = DBF63.text
sheet(40,74).Value = DBF73.text
sheet(43,50).Value = DBF14.text
sheet(43,56).Value = DBF24.text
sheet(43,60).Value = DBF34.text
sheet(43,64).Value = DBF44.text
sheet(43,67).Value = DBF54.text
sheet(43,70).Value = DBF64.text
sheet(43,74).Value = DBF74.text
sheet(46,50).Value = DBF15.text
sheet(46,56).Value = DBF25.text
sheet(46,60).Value = DBF35.text
sheet(46,64).Value = DBF45.text
sheet(46,67).Value = DBF55.text
sheet(46,70).Value = DBF65.text
sheet(46,74).Value = DBF75.text
sheet(49,50).Value = DBF16.text
sheet(49,56).Value = DBF26.text
sheet(49,60).Value = DBF36.text
sheet(49,64).Value = DBF46.text
sheet(49,67).Value = DBF56.text
sheet(49,70).Value = DBF66.text
sheet(49,74).Value = DBF76.text
sheet(52,50).Value = DBF17.text
sheet(52,56).Value = DBF27.text
sheet(52,60).Value = DBF37.text
sheet(52,64).Value = DBF47.text
sheet(52,67).Value = DBF57.text
sheet(52,70).Value = DBF67.text
sheet(52,74).Value = DBF77.text
sheet(55,50).Value = DBF18.text
sheet(55,56).Value = DBF28.text
sheet(55,60).Value = DBF38.text
sheet(55,64).Value = DBF48.text
sheet(55,67).Value = DBF58.text
sheet(55,70).Value = DBF68.text
sheet(55,74).Value = DBF78.text
sheet(58,50).Value = DBF19.text
sheet(58,56).Value = DBF29.text
sheet(58,60).Value = DBF39.text
sheet(58,64).Value = DBF49.text
sheet(58,67).Value = DBF59.text
sheet(58,70).Value = DBF69.text
sheet(58,74).Value = DBF79.text
sheet(34,3).Value = Tml12.text
sheet(34,13).Value = Tml11.text
sheet(34,20).Value = Tml13.text
sheet(34,27).Value = Tml16.text
sheet(34,31).Value = Tml15.text
sheet(34,34).Value = Tml17.text
sheet(34,38).Value = Tml18.text
sheet(34,43).Value = Tml19.text
sheet(37,3).Value = Tml22.text
sheet(37,13).Value = Tml21.text
sheet(37,20).Value = Tml23.text
sheet(37,27).Value = Tml26.text
sheet(37,31).Value = Tml25.text
sheet(37,34).Value = Tml27.text
sheet(37,38).Value = Tml28.text
sheet(37,43).Value = Tml29.text
sheet(40,3).Value = Tml32.text
sheet(40,13).Value = Tml31.text
sheet(40,20).Value = Tml33.text
sheet(40,27).Value = Tml36.text
sheet(40,31).Value = Tml35.text
sheet(40,34).Value = Tml37.text
sheet(40,38).Value = Tml38.text
sheet(40,43).Value = Tml39.text
sheet(43,3).Value = Tml42.text
sheet(43,13).Value = Tml41.text
sheet(43,20).Value = Tml43.text
sheet(43,27).Value = Tml46.text
sheet(43,31).Value = Tml45.text
sheet(43,34).Value = Tml47.text
sheet(43,38).Value = Tml48.text
sheet(43,43).Value = Tml49.text
sheet(46,3).Value = Tml52.text
sheet(46,13).Value = Tml51.text
sheet(46,20).Value = Tml53.text
sheet(46,27).Value = Tml56.text
sheet(46,31).Value = Tml55.text
sheet(46,34).Value = Tml57.text
sheet(46,38).Value = Tml58.text
sheet(46,43).Value = Tml59.text
sheet(49,3).Value = Tml62.text
sheet(49,13).Value = Tml61.text
sheet(49,20).Value = Tml63.text
sheet(49,27).Value = Tml66.text
sheet(49,31).Value = Tml65.text
sheet(49,34).Value = Tml67.text
sheet(49,38).Value = Tml68.text
sheet(49,43).Value = Tml69.text
sheet(52,3).Value = Tml72.text
sheet(52,13).Value = Tml71.text
sheet(52,20).Value = Tml73.text
sheet(52,27).Value = Tml76.text
sheet(52,31).Value = Tml75.text
sheet(52,34).Value = Tml77.text
sheet(52,38).Value = Tml78.text
sheet(52,43).Value = Tml79.text
sheet(55,3).Value = Tml82.text
sheet(55,13).Value = Tml81.text
sheet(55,20).Value = Tml83.text
sheet(55,27).Value = Tml86.text
sheet(55,31).Value = Tml85.text
sheet(55,34).Value = Tml87.text
sheet(55,38).Value = Tml88.text
sheet(55,43).Value = Tml89.text
sheet(58,3).Value = Tml92.text
sheet(58,13).Value = Tml91.text
sheet(58,20).Value = Tml93.text
sheet(58,27).Value = Tml96.text
sheet(58,31).Value = Tml95.text
sheet(58,34).Value = Tml97.text
sheet(58,38).Value = Tml98.text
sheet(58,43).Value = Tml99.text
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit

[此贴子已经被作者于2016/8/17 15:38:56编辑过]

--  作者：大红袍
--  发布时间：2016/8/17 15:43:00
--

Dim TSY1 As WinForm.TextBox = e.Form.Controls("Tsy_1")
Dim TSY2 As WinForm.TextBox = e.Form.Controls("Tsy_2")
Dim TSY3 As WinForm.TextBox = e.Form.Controls("Tsy_3")
Dim TSY4 As WinForm.TextBox = e.Form.Controls("Tsy_4")
Dim TSY5 As WinForm.TextBox = e.Form.Controls("Tsy_5")
Dim TSY6 As WinForm.TextBox = e.Form.Controls("Tsy_6")
Dim TSY7 As WinForm.TextBox = e.Form.Controls("Tsy_7")
Dim tg1 As WinForm.TextBox = e.Form.Controls("Tg_1")
Dim tg2 As WinForm.TextBox = e.Form.Controls("Tg_2")
Dim tg3 As WinForm.TextBox = e.Form.Controls("Tg_3")
Dim tg4 As WinForm.TextBox = e.Form.Controls("Tg_4")
Dim tg5 As WinForm.TextBox = e.Form.Controls("Tg_5")
Dim tg6 As WinForm.TextBox = e.Form.Controls("Tg_6")
Dim tg7 As WinForm.TextBox = e.Form.Controls("Tg_7")
Dim ts11 As WinForm.TextBox = e.Form.Controls("Ts_1_1")
Dim ts12 As WinForm.TextBox = e.Form.Controls("Ts_1_2")
Dim ts13 As WinForm.TextBox = e.Form.Controls("Ts_1_3")
Dim ts14 As WinForm.TextBox = e.Form.Controls("Ts_1_4")
Dim ts15 As WinForm.TextBox = e.Form.Controls("Ts_1_5")
Dim ts16 As WinForm.TextBox = e.Form.Controls("Ts_1_6")
Dim ts17 As WinForm.TextBox = e.Form.Controls("Ts_1_7")
Dim ts21 As WinForm.TextBox = e.Form.Controls("Ts_2_1")
Dim ts22 As WinForm.TextBox = e.Form.Controls("Ts_2_2")
Dim ts23 As WinForm.TextBox = e.Form.Controls("Ts_2_3")
Dim ts24 As WinForm.TextBox = e.Form.Controls("Ts_2_4")
Dim ts25 As WinForm.TextBox = e.Form.Controls("Ts_2_5")
Dim ts26 As WinForm.TextBox = e.Form.Controls("Ts_2_6")
Dim ts27 As WinForm.TextBox = e.Form.Controls("Ts_2_7")
Dim ts31 As WinForm.TextBox = e.Form.Controls("Ts_3_1")
Dim ts32 As WinForm.TextBox = e.Form.Controls("Ts_3_2")
Dim ts33 As WinForm.TextBox = e.Form.Controls("Ts_3_3")
Dim ts34 As WinForm.TextBox = e.Form.Controls("Ts_3_4")
Dim ts35 As WinForm.TextBox = e.Form.Controls("Ts_3_5")
Dim ts36 As WinForm.TextBox = e.Form.Controls("Ts_3_6")
Dim ts37 As WinForm.TextBox = e.Form.Controls("Ts_3_7")
Dim ts41 As WinForm.TextBox = e.Form.Controls("Ts_4_1")
Dim ts42 As WinForm.TextBox = e.Form.Controls("Ts_4_2")
Dim ts43 As WinForm.TextBox = e.Form.Controls("Ts_4_3")
Dim ts44 As WinForm.TextBox = e.Form.Controls("Ts_4_4")
Dim ts45 As WinForm.TextBox = e.Form.Controls("Ts_4_5")
Dim ts46 As WinForm.TextBox = e.Form.Controls("Ts_4_6")
Dim ts47 As WinForm.TextBox = e.Form.Controls("Ts_4_7")
Dim ts51 As WinForm.TextBox = e.Form.Controls("Ts_5_1")
Dim ts52 As WinForm.TextBox = e.Form.Controls("Ts_5_2")
Dim ts53 As WinForm.TextBox = e.Form.Controls("Ts_5_3")
Dim ts54 As WinForm.TextBox = e.Form.Controls("Ts_5_4")
Dim ts55 As WinForm.TextBox = e.Form.Controls("Ts_5_5")
Dim ts56 As WinForm.TextBox = e.Form.Controls("Ts_5_6")
Dim ts57 As WinForm.TextBox = e.Form.Controls("Ts_5_7")
Dim ts61 As WinForm.TextBox = e.Form.Controls("Ts_6_1")
Dim ts62 As WinForm.TextBox = e.Form.Controls("Ts_6_2")
Dim ts63 As WinForm.TextBox = e.Form.Controls("Ts_6_3")
Dim ts64 As WinForm.TextBox = e.Form.Controls("Ts_6_4")
Dim ts65 As WinForm.TextBox = e.Form.Controls("Ts_6_5")
Dim ts66 As WinForm.TextBox = e.Form.Controls("Ts_6_6")
Dim ts67 As WinForm.TextBox = e.Form.Controls("Ts_6_7")
Dim ts71 As WinForm.TextBox = e.Form.Controls("Ts_7_1")
Dim ts72 As WinForm.TextBox = e.Form.Controls("Ts_7_2")
Dim ts73 As WinForm.TextBox = e.Form.Controls("Ts_7_3")
Dim ts74 As WinForm.TextBox = e.Form.Controls("Ts_7_4")
Dim ts75 As WinForm.TextBox = e.Form.Controls("Ts_7_5")
Dim ts76 As WinForm.TextBox = e.Form.Controls("Ts_7_6")
Dim ts77 As WinForm.TextBox = e.Form.Controls("Ts_7_7")
Dim ts81 As WinForm.Label = e.Form.Controls("Ts_8_1")
Dim ts82 As WinForm.Label = e.Form.Controls("Ts_8_2")
Dim ts83 As WinForm.Label = e.Form.Controls("Ts_8_3")
Dim ts84 As WinForm.Label = e.Form.Controls("Ts_8_4")
Dim ts85 As WinForm.Label = e.Form.Controls("Ts_8_5")
Dim ts86 As WinForm.Label = e.Form.Controls("Ts_8_6")
Dim ts87 As WinForm.Label = e.Form.Controls("Ts_8_7")
Dim TBp11 As WinForm.TextBox = e.Form.Controls("TBp_1_1")
Dim TBp12 As WinForm.TextBox = e.Form.Controls("TBp_1_2")
Dim TBp13 As WinForm.TextBox = e.Form.Controls("TBp_1_3")
Dim TBp21 As WinForm.TextBox = e.Form.Controls("TBp_2_1")
Dim TBp22 As WinForm.TextBox = e.Form.Controls("TBp_2_2")
Dim TBp23 As WinForm.TextBox = e.Form.Controls("TBp_2_3")
Dim TBp31 As WinForm.TextBox = e.Form.Controls("TBp_3_1")
Dim TBp32 As WinForm.TextBox = e.Form.Controls("TBp_3_2")
Dim TBp33 As WinForm.TextBox = e.Form.Controls("TBp_3_3")
Dim TBp41 As WinForm.TextBox = e.Form.Controls("TBp_4_1")
Dim TBp42 As WinForm.TextBox = e.Form.Controls("TBp_4_2")
Dim TBp43 As WinForm.TextBox = e.Form.Controls("TBp_4_3")
Dim TBp51 As WinForm.TextBox = e.Form.Controls("TBp_5_1")
Dim TBp52 As WinForm.TextBox = e.Form.Controls("TBp_5_2")
Dim TBp53 As WinForm.TextBox = e.Form.Controls("TBp_5_3")
Dim TBp61 As WinForm.TextBox = e.Form.Controls("TBp_6_1")
Dim TBp62 As WinForm.TextBox = e.Form.Controls("TBp_6_2")
Dim TBp63 As WinForm.TextBox = e.Form.Controls("TBp_6_3")
Dim TBp71 As WinForm.TextBox = e.Form.Controls("TBp_7_1")
Dim TBp72 As WinForm.TextBox = e.Form.Controls("TBp_7_2")
Dim TBp73 As WinForm.TextBox = e.Form.Controls("TBp_7_3")
Dim TBp81 As WinForm.TextBox = e.Form.Controls("TBp_8_1")
Dim TBp82 As WinForm.TextBox = e.Form.Controls("TBp_8_2")
Dim TBp83 As WinForm.TextBox = e.Form.Controls("TBp_8_3")
Dim Tml11 As WinForm.TextBox = e.Form.Controls("Tml_1_1")
Dim Tml12 As WinForm.DropDownBox = e.Form.Controls("Tml_1_2")
Dim Tml13 As WinForm.TextBox = e.Form.Controls("Tml_1_3")
Dim Tml15 As WinForm.TextBox = e.Form.Controls("Tml_1_5")
Dim Tml16 As WinForm.TextBox = e.Form.Controls("Tml_1_6")
Dim Tml17 As WinForm.TextBox = e.Form.Controls("Tml_1_7")
Dim Tml18 As WinForm.TextBox = e.Form.Controls("Tml_1_8")
Dim Tml19 As WinForm.TextBox = e.Form.Controls("Tml_1_9")
Dim Tml21 As WinForm.TextBox = e.Form.Controls("Tml_2_1")
Dim Tml22 As WinForm.DropDownBox = e.Form.Controls("Tml_2_2")
Dim Tml23 As WinForm.TextBox = e.Form.Controls("Tml_2_3")
Dim Tml25 As WinForm.TextBox = e.Form.Controls("Tml_2_5")
Dim Tml26 As WinForm.TextBox = e.Form.Controls("Tml_2_6")
Dim Tml27 As WinForm.TextBox = e.Form.Controls("Tml_2_7")
Dim Tml28 As WinForm.TextBox = e.Form.Controls("Tml_2_8")
Dim Tml29 As WinForm.TextBox = e.Form.Controls("Tml_2_9")
Dim Tml31 As WinForm.TextBox = e.Form.Controls("Tml_3_1")
Dim Tml32 As WinForm.DropDownBox = e.Form.Controls("Tml_3_2")
Dim Tml33 As WinForm.TextBox = e.Form.Controls("Tml_3_3")
Dim Tml35 As WinForm.TextBox = e.Form.Controls("Tml_3_5")
Dim Tml36 As WinForm.TextBox = e.Form.Controls("Tml_3_6")
Dim Tml37 As WinForm.TextBox = e.Form.Controls("Tml_3_7")
Dim Tml38 As WinForm.TextBox = e.Form.Controls("Tml_3_8")
Dim Tml39 As WinForm.TextBox = e.Form.Controls("Tml_3_9")
Dim Tml41 As WinForm.TextBox = e.Form.Controls("Tml_4_1")
Dim Tml42 As WinForm.DropDownBox = e.Form.Controls("Tml_4_2")
Dim Tml43 As WinForm.TextBox = e.Form.Controls("Tml_4_3")
Dim Tml45 As WinForm.TextBox = e.Form.Controls("Tml_4_5")
Dim Tml46 As WinForm.TextBox = e.Form.Controls("Tml_4_6")
Dim Tml47 As WinForm.TextBox = e.Form.Controls("Tml_4_7")
Dim Tml48 As WinForm.TextBox = e.Form.Controls("Tml_4_8")
Dim Tml49 As WinForm.TextBox = e.Form.Controls("Tml_4_9")
Dim Tml51 As WinForm.TextBox = e.Form.Controls("Tml_5_1")
Dim Tml52 As WinForm.DropDownBox = e.Form.Controls("Tml_5_2")
Dim Tml53 As WinForm.TextBox = e.Form.Controls("Tml_5_3")
Dim Tml55 As WinForm.TextBox = e.Form.Controls("Tml_5_5")
Dim Tml56 As WinForm.TextBox = e.Form.Controls("Tml_5_6")
Dim Tml57 As WinForm.TextBox = e.Form.Controls("Tml_5_7")
Dim Tml58 As WinForm.TextBox = e.Form.Controls("Tml_5_8")
Dim Tml59 As WinForm.TextBox = e.Form.Controls("Tml_5_9")
Dim Tml61 As WinForm.TextBox = e.Form.Controls("Tml_6_1")
Dim Tml62 As WinForm.DropDownBox = e.Form.Controls("Tml_6_2")
Dim Tml63 As WinForm.TextBox = e.Form.Controls("Tml_6_3")
Dim Tml65 As WinForm.TextBox = e.Form.Controls("Tml_6_5")
Dim Tml66 As WinForm.TextBox = e.Form.Controls("Tml_6_6")
Dim Tml67 As WinForm.TextBox = e.Form.Controls("Tml_6_7")
Dim Tml68 As WinForm.TextBox = e.Form.Controls("Tml_6_8")
Dim Tml69 As WinForm.TextBox = e.Form.Controls("Tml_6_9")
Dim Tml71 As WinForm.TextBox = e.Form.Controls("Tml_7_1")
Dim Tml72 As WinForm.DropDownBox = e.Form.Controls("Tml_7_2")
Dim Tml73 As WinForm.TextBox = e.Form.Controls("Tml_7_3")
Dim Tml75 As WinForm.TextBox = e.Form.Controls("Tml_7_5")
Dim Tml76 As WinForm.TextBox = e.Form.Controls("Tml_7_6")
Dim Tml77 As WinForm.TextBox = e.Form.Controls("Tml_7_7")
Dim Tml78 As WinForm.TextBox = e.Form.Controls("Tml_7_8")
Dim Tml79 As WinForm.TextBox = e.Form.Controls("Tml_7_9")
Dim Tml81 As WinForm.TextBox = e.Form.Controls("Tml_8_1")
Dim Tml82 As WinForm.DropDownBox = e.Form.Controls("Tml_8_2")
Dim Tml83 As WinForm.TextBox = e.Form.Controls("Tml_8_3")
Dim Tml85 As WinForm.TextBox = e.Form.Controls("Tml_8_5")
Dim Tml86 As WinForm.TextBox = e.Form.Controls("Tml_8_6")
Dim Tml87 As WinForm.TextBox = e.Form.Controls("Tml_8_7")
Dim Tml88 As WinForm.TextBox = e.Form.Controls("Tml_8_8")
Dim Tml89 As WinForm.TextBox = e.Form.Controls("Tml_8_9")
Dim Tml91 As WinForm.TextBox = e.Form.Controls("Tml_9_1")
Dim Tml92 As WinForm.DropDownBox = e.Form.Controls("Tml_9_2")
Dim Tml93 As WinForm.TextBox = e.Form.Controls("Tml_9_3")
Dim Tml95 As WinForm.TextBox = e.Form.Controls("Tml_9_5")
Dim Tml96 As WinForm.TextBox = e.Form.Controls("Tml_9_6")
Dim Tml97 As WinForm.TextBox = e.Form.Controls("Tml_9_7")
Dim Tml98 As WinForm.TextBox = e.Form.Controls("Tml_9_8")
Dim Tml99 As WinForm.TextBox = e.Form.Controls("Tml_9_9")
Dim DBF11 As WinForm.DropDownBox = e.Form.Controls("DBF_1_1")
Dim DBF21 As WinForm.TextBox = e.Form.Controls("DBF_2_1")
Dim DBF31 As WinForm.TextBox = e.Form.Controls("DBF_3_1")
Dim DBF41 As WinForm.TextBox = e.Form.Controls("DBF_4_1")
Dim DBF51 As WinForm.TextBox = e.Form.Controls("DBF_5_1")
Dim DBF61 As WinForm.TextBox = e.Form.Controls("DBF_6_1")
Dim DBF71 As WinForm.TextBox = e.Form.Controls("DBF_7_1")
Dim DBF12 As WinForm.DropDownBox = e.Form.Controls("DBF_1_2")
Dim DBF22 As WinForm.TextBox = e.Form.Controls("DBF_2_2")
Dim DBF32 As WinForm.TextBox = e.Form.Controls("DBF_3_2")
Dim DBF42 As WinForm.TextBox = e.Form.Controls("DBF_4_2")
Dim DBF52 As WinForm.TextBox = e.Form.Controls("DBF_5_2")
Dim DBF62 As WinForm.TextBox = e.Form.Controls("DBF_6_2")
Dim DBF72 As WinForm.TextBox = e.Form.Controls("DBF_7_2")
Dim DBF13 As WinForm.DropDownBox = e.Form.Controls("DBF_1_3")
Dim DBF23 As WinForm.TextBox = e.Form.Controls("DBF_2_3")
Dim DBF33 As WinForm.TextBox = e.Form.Controls("DBF_3_3")
Dim DBF43 As WinForm.TextBox = e.Form.Controls("DBF_4_3")
Dim DBF53 As WinForm.TextBox = e.Form.Controls("DBF_5_3")
Dim DBF63 As WinForm.TextBox = e.Form.Controls("DBF_6_3")
Dim DBF73 As WinForm.TextBox = e.Form.Controls("DBF_7_3")
Dim DBF14 As WinForm.DropDownBox = e.Form.Controls("DBF_1_4")
Dim DBF24 As WinForm.TextBox = e.Form.Controls("DBF_2_4")
Dim DBF34 As WinForm.TextBox = e.Form.Controls("DBF_3_4")
Dim DBF44 As WinForm.TextBox = e.Form.Controls("DBF_4_4")
Dim DBF54 As WinForm.TextBox = e.Form.Controls("DBF_5_4")
Dim DBF64 As WinForm.TextBox = e.Form.Controls("DBF_6_4")
Dim DBF74 As WinForm.TextBox = e.Form.Controls("DBF_7_4")
Dim DBF15 As WinForm.DropDownBox = e.Form.Controls("DBF_1_5")
Dim DBF25 As WinForm.TextBox = e.Form.Controls("DBF_2_5")
Dim DBF35 As WinForm.TextBox = e.Form.Controls("DBF_3_5")
Dim DBF45 As WinForm.TextBox = e.Form.Controls("DBF_4_5")
Dim DBF55 As WinForm.TextBox = e.Form.Controls("DBF_5_5")
Dim DBF65 As WinForm.TextBox = e.Form.Controls("DBF_6_5")
Dim DBF75 As WinForm.TextBox = e.Form.Controls("DBF_7_5")
Dim DBF16 As WinForm.DropDownBox = e.Form.Controls("DBF_1_6")
Dim DBF26 As WinForm.TextBox = e.Form.Controls("DBF_2_6")
Dim DBF36 As WinForm.TextBox = e.Form.Controls("DBF_3_6")
Dim DBF46 As WinForm.TextBox = e.Form.Controls("DBF_4_6")
Dim DBF56 As WinForm.TextBox = e.Form.Controls("DBF_5_6")
Dim DBF66 As WinForm.TextBox = e.Form.Controls("DBF_6_6")
Dim DBF76 As WinForm.TextBox = e.Form.Controls("DBF_7_6")
Dim DBF17 As WinForm.DropDownBox = e.Form.Controls("DBF_1_7")
Dim DBF27 As WinForm.TextBox = e.Form.Controls("DBF_2_7")
Dim DBF37 As WinForm.TextBox = e.Form.Controls("DBF_3_7")
Dim DBF47 As WinForm.TextBox = e.Form.Controls("DBF_4_7")
Dim DBF57 As WinForm.TextBox = e.Form.Controls("DBF_5_7")
Dim DBF67 As WinForm.TextBox = e.Form.Controls("DBF_6_7")
Dim DBF77 As WinForm.TextBox = e.Form.Controls("DBF_7_7")
Dim DBF18 As WinForm.DropDownBox = e.Form.Controls("DBF_1_8")
Dim DBF28 As WinForm.TextBox = e.Form.Controls("DBF_2_8")
Dim DBF38 As WinForm.TextBox = e.Form.Controls("DBF_3_8")
Dim DBF48 As WinForm.TextBox = e.Form.Controls("DBF_4_8")
Dim DBF58 As WinForm.TextBox = e.Form.Controls("DBF_5_8")
Dim DBF68 As WinForm.TextBox = e.Form.Controls("DBF_6_8")
Dim DBF78 As WinForm.TextBox = e.Form.Controls("DBF_7_8")
Dim DBF19 As WinForm.DropDownBox = e.Form.Controls("DBF_1_9")
Dim DBF29 As WinForm.TextBox = e.Form.Controls("DBF_2_9")
Dim DBF39 As WinForm.TextBox = e.Form.Controls("DBF_3_9")
Dim DBF49 As WinForm.TextBox = e.Form.Controls("DBF_4_9")
Dim DBF59 As WinForm.TextBox = e.Form.Controls("DBF_5_9")
Dim DBF69 As WinForm.TextBox = e.Form.Controls("DBF_6_9")
Dim DBF79 As WinForm.TextBox = e.Form.Controls("DBF_7_9")
Dim r As Row = Tables("订单主表").Current
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单表.xls") \'打开模板
Dim fl As String = "d:/订单信息/"+(r("客户名称")) + "/"+(r("合同号")) +(r("款号")) +" 订单指示.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)

Dim sheet1 As XLS.Sheet = book.Sheets("sheet1")
sheet(3,14).Value = tg1.text
sheet(3,19).Value = tg2.text
sheet(3,24).Value = tg3.text
sheet(3,29).Value = tg4.text
sheet(3,34).Value = tg5.text
sheet(3,39).Value = tg6.text
sheet(3,44).Value = tg7.text
sheet(6,3).Value = TSY1.text
sheet(9,3).Value = TSY2.text
sheet(12,3).Value = TSY3.text
sheet(15,3).Value = TSY4.text
sheet(18,3).Value = TSY5.text
sheet(21,3).Value = TSY6.text
sheet(24,3).Value = TSY7.text
sheet(6,14).Value = ts11.text
sheet(6,19).Value = ts12.text
sheet(6,24).Value = ts13.text
sheet(6,29).Value = ts14.text
sheet(6,34).Value = ts15.text
sheet(6,39).Value = ts16.text
sheet(6,44).Value = ts17.text
sheet(9,14).Value = ts21.text
sheet(9,19).Value = ts22.text
sheet(9,24).Value = ts23.text
sheet(9,29).Value = ts24.text
sheet(9,34).Value = ts25.text
sheet(9,39).Value = ts26.text
sheet(9,44).Value = ts27.text
sheet(12,14).Value = ts31.text
sheet(12,19).Value = ts32.text
sheet(12,24).Value = ts33.text
sheet(12,29).Value = ts34.text
sheet(12,34).Value = ts35.text
sheet(12,39).Value = ts36.text
sheet(12,44).Value = ts37.text
sheet(15,14).Value = ts41.text
sheet(15,19).Value = ts42.text
sheet(15,24).Value = ts43.text
sheet(15,29).Value = ts44.text
sheet(15,34).Value = ts45.text
sheet(15,39).Value = ts46.text
sheet(15,44).Value = ts47.text
sheet(18,14).Value = ts51.text
sheet(18,19).Value = ts52.text
sheet(18,24).Value = ts53.text
sheet(18,29).Value = ts54.text
sheet(18,34).Value = ts55.text
sheet(18,39).Value = ts56.text
sheet(18,44).Value = ts57.text
sheet(21,14).Value = ts61.text
sheet(21,19).Value = ts62.text
sheet(21,24).Value = ts63.text
sheet(21,29).Value = ts64.text
sheet(21,34).Value = ts65.text
sheet(21,39).Value = ts66.text
sheet(21,44).Value = ts67.text
sheet(24,14).Value = ts71.text
sheet(24,19).Value = ts72.text
sheet(24,24).Value = ts73.text
sheet(24,29).Value = ts74.text
sheet(24,34).Value = ts75.text
sheet(24,39).Value = ts76.text
sheet(24,44).Value = ts77.text
sheet(27,14).Value = ts81.text
sheet(27,19).Value = ts82.text
sheet(27,24).Value = ts83.text
sheet(27,29).Value = ts84.text
sheet(27,34).Value = ts85.text
sheet(27,39).Value = ts86.text
sheet(27,44).Value = ts87.text
sheet(6,50).Value = TBp11.text
sheet(6,59).Value = TBp12.text
sheet(6,67).Value = TBp13.text
sheet(9,50).Value = TBp21.text
sheet(9,59).Value = TBp22.text
sheet(9,67).Value = TBp23.text
sheet(12,50).Value = TBp31.text
sheet(12,59).Value = TBp32.text
sheet(12,67).Value = TBp33.text
sheet(15,50).Value = TBp41.text
sheet(15,59).Value = TBp42.text
sheet(15,67).Value = TBp43.text
sheet(18,50).Value = TBp51.text
sheet(18,59).Value = TBp52.text
sheet(18,67).Value = TBp53.text
sheet(21,50).Value = TBp61.text
sheet(21,59).Value = TBp62.text
sheet(21,67).Value = TBp63.text
sheet(24,50).Value = TBp71.text
sheet(24,59).Value = TBp72.text
sheet(24,67).Value = TBp73.text
sheet(28,50).Value = TBp81.text
sheet(28,59).Value = TBp82.text
sheet(28,67).Value = TBp83.text
sheet(34,50).Value = DBF11.text
sheet(34,56).Value = DBF21.text
sheet(34,60).Value = DBF31.text
sheet(34,64).Value = DBF41.text
sheet(34,67).Value = DBF51.text
sheet(34,70).Value = DBF61.text
sheet(34,74).Value = DBF71.text
sheet(37,50).Value = DBF12.text
sheet(37,56).Value = DBF22.text
sheet(37,60).Value = DBF32.text
sheet(37,64).Value = DBF42.text
sheet(37,67).Value = DBF52.text
sheet(37,70).Value = DBF62.text
sheet(37,74).Value = DBF72.text
sheet(40,50).Value = DBF13.text
sheet(40,56).Value = DBF23.text
sheet(40,60).Value = DBF33.text
sheet(40,64).Value = DBF43.text
sheet(40,67).Value = DBF53.text
sheet(40,70).Value = DBF63.text
sheet(40,74).Value = DBF73.text
sheet(43,50).Value = DBF14.text
sheet(43,56).Value = DBF24.text
sheet(43,60).Value = DBF34.text
sheet(43,64).Value = DBF44.text
sheet(43,67).Value = DBF54.text
sheet(43,70).Value = DBF64.text
sheet(43,74).Value = DBF74.text
sheet(46,50).Value = DBF15.text
sheet(46,56).Value = DBF25.text
sheet(46,60).Value = DBF35.text
sheet(46,64).Value = DBF45.text
sheet(46,67).Value = DBF55.text
sheet(46,70).Value = DBF65.text
sheet(46,74).Value = DBF75.text
sheet(49,50).Value = DBF16.text
sheet(49,56).Value = DBF26.text
sheet(49,60).Value = DBF36.text
sheet(49,64).Value = DBF46.text
sheet(49,67).Value = DBF56.text
sheet(49,70).Value = DBF66.text
sheet(49,74).Value = DBF76.text
sheet(52,50).Value = DBF17.text
sheet(52,56).Value = DBF27.text
sheet(52,60).Value = DBF37.text
sheet(52,64).Value = DBF47.text
sheet(52,67).Value = DBF57.text
sheet(52,70).Value = DBF67.text
sheet(52,74).Value = DBF77.text
sheet(55,50).Value = DBF18.text
sheet(55,56).Value = DBF28.text
sheet(55,60).Value = DBF38.text
sheet(55,64).Value = DBF48.text
sheet(55,67).Value = DBF58.text
sheet(55,70).Value = DBF68.text
sheet(55,74).Value = DBF78.text
sheet(58,50).Value = DBF19.text
sheet(58,56).Value = DBF29.text
sheet(58,60).Value = DBF39.text
sheet(58,64).Value = DBF49.text
sheet(58,67).Value = DBF59.text
sheet(58,70).Value = DBF69.text
sheet(58,74).Value = DBF79.text
sheet(34,3).Value = Tml12.text
sheet(34,13).Value = Tml11.text
sheet(34,20).Value = Tml13.text
sheet(34,27).Value = Tml16.text
sheet(34,31).Value = Tml15.text
sheet(34,34).Value = Tml17.text
sheet(34,38).Value = Tml18.text
sheet(34,43).Value = Tml19.text
sheet(37,3).Value = Tml22.text
sheet(37,13).Value = Tml21.text
sheet(37,20).Value = Tml23.text
sheet(37,27).Value = Tml26.text
sheet(37,31).Value = Tml25.text
sheet(37,34).Value = Tml27.text
sheet(37,38).Value = Tml28.text
sheet(37,43).Value = Tml29.text
sheet(40,3).Value = Tml32.text
sheet(40,13).Value = Tml31.text
sheet(40,20).Value = Tml33.text
sheet(40,27).Value = Tml36.text
sheet(40,31).Value = Tml35.text
sheet(40,34).Value = Tml37.text
sheet(40,38).Value = Tml38.text
sheet(40,43).Value = Tml39.text
sheet(43,3).Value = Tml42.text
sheet(43,13).Value = Tml41.text
sheet(43,20).Value = Tml43.text
sheet(43,27).Value = Tml46.text
sheet(43,31).Value = Tml45.text
sheet(43,34).Value = Tml47.text
sheet(43,38).Value = Tml48.text
sheet(43,43).Value = Tml49.text
sheet(46,3).Value = Tml52.text
sheet(46,13).Value = Tml51.text
sheet(46,20).Value = Tml53.text
sheet(46,27).Value = Tml56.text
sheet(46,31).Value = Tml55.text
sheet(46,34).Value = Tml57.text
sheet(46,38).Value = Tml58.text
sheet(46,43).Value = Tml59.text
sheet(49,3).Value = Tml62.text
sheet(49,13).Value = Tml61.text
sheet(49,20).Value = Tml63.text
sheet(49,27).Value = Tml66.text
sheet(49,31).Value = Tml65.text
sheet(49,34).Value = Tml67.text
sheet(49,38).Value = Tml68.text
sheet(49,43).Value = Tml69.text
sheet(52,3).Value = Tml72.text
sheet(52,13).Value = Tml71.text
sheet(52,20).Value = Tml73.text
sheet(52,27).Value = Tml76.text
sheet(52,31).Value = Tml75.text
sheet(52,34).Value = Tml77.text
sheet(52,38).Value = Tml78.text
sheet(52,43).Value = Tml79.text
sheet(55,3).Value = Tml82.text
sheet(55,13).Value = Tml81.text
sheet(55,20).Value = Tml83.text
sheet(55,27).Value = Tml86.text
sheet(55,31).Value = Tml85.text
sheet(55,34).Value = Tml87.text
sheet(55,38).Value = Tml88.text
sheet(55,43).Value = Tml89.text
sheet(58,3).Value = Tml92.text
sheet(58,13).Value = Tml91.text
sheet(58,20).Value = Tml93.text
sheet(58,27).Value = Tml96.text
sheet(58,31).Value = Tml95.text
sheet(58,34).Value = Tml97.text
sheet(58,38).Value = Tml98.text
sheet(58,43).Value = Tml99.text
Book.Save(fl)
Dim App As New MSExcel.Application

Try
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview

catch ex as Exception

    msgbox(ex.Message)
    App.Quit

End Try

[此贴子已经被作者于2016/8/17 15:43:54编辑过]

--  作者：大红袍
--  发布时间：2016/8/17 15:44:00
--
如果还报错，上传实例。

--  作者：hongyefor
--  发布时间：2016/8/17 16:20:00
--

此主题相关图片如下：wt1.jpg

报错是没有了，但是数据没有填上去，这是为什么

--  作者：大红袍
--  发布时间：2016/8/17 16:24:00
--

Dim sheet1 As XLS.Sheet = book.Sheets("sheet1")

改成

sheet = book.Sheets(0)

--  作者：nblwar
--  发布时间：2016/8/17 16:27:00
--
楼主，你头不晕吗，代码这么长