主题：窗口录入与查询

我测试没问题的啊。直接这样写就行了

Dim Book As New XLS.Book(ProjectPath & "Attachments\采购订单一.xls")
Dim fl As String = ProjectPath & "Reports\采购订单一.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(2,0).Value = "<GroupHeader,订单审核_Table1,采购订单编号,1>"
Sheet(7,0).Value = "<GroupHeader,订单审核_Table1,采购订单编号>"
Sheet(8,0).Value = "<订单审核_Table1,采购订单编号,-20>"
Sheet(9,0).Value = "<GroupFooter,订单审核_Table1,采购订单编号>"
Sheet(12,0).Value = "<GroupFooter,订单审核_Table1,采购订单编号,1>"
Book.Build()
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 我测试，会补空行，如果你的确实不行，你可以动态的新增行，也是可以的。

logo不是可以直接用pictureBox控件来直接显示的吗？

http://www.foxtable.com/webhelp/scr/1607.htm

Dim t As Table = e.Form.Controls("Table2").Table
Dim 供应商 = e.Form.Controls("供应商").Text
Dim 采购订单编号 = e.Form.Controls("采购订单编号").Text
Dim 联络人 = e.Form.Controls("联络人").Text
Dim 采购员 = e.Form.Controls("采购员").Text
Dim 订单日期 = e.Form.Controls("订单日期").Text
Dim 供应商传真 = e.Form.Controls("供应商传真").Text
Dim 申请部门 = e.Form.Controls("申请部门").Text
Dim 月结方式 = e.Form.Controls("月结方式").Text
Dim 币种 = e.Form.Controls("币种").Text
Dim 税率 = e.Form.Controls("税率").Text
Dim 审批人 = e.Form.Controls("审批人").Text
Dim 确认人 = e.Form.Controls("确认人").Text
Dim 收货人 = e.Form.Controls("收货人").Text

Dim dr As DataRow
dr = t.DataTable.Find("采购订单编号 = '" & 采购订单编号 & "'")
If dr IsNot Nothing Then
    MessageBox.Show("此序号已经存在!")
Else
    For Each r As Row In t.Rows
        r("供应商") = 供应商
        r("采购订单编号") = 采购订单编号
        r("联络人") = 联络人
        r("采购员") = 采购员
        r("订单日期") = 订单日期
        r("供应商传真") = 供应商传真
        r("申请部门") = 申请部门
        r("月结方式") = 月结方式
        r("币种") = 币种
        r("税率") = 税率
        r("审批人") = 审批人
        r("确认人") = 确认人
        r("收货人") = 收货人
    Next
End If