Dim v As Integer = 0
Dim Filter = "去订单后实际库存 < " & v
Dim khmc As WinForm.ComboBox = e.Form.Controls("客户名称")
If khmc.text > "" Then
    filter &= " and 客户名称 = \'" & khmc.Text & "\'"
End If
Dim cbx = e.Form.Controls("加工中心")
If cbx.Checked Then
    Filter = Filter & " and 加工工艺_加工中心 = true"
Else
    Filter = Filter & " and (加工工艺_加工中心 = false or 加工工艺_加工中心 is null)"
End If
Tables("入库主表").Filter = Filter

For Each r1 As Row In Tables("入库主表")
    Dim r2 As Row = Tables("欠料明细表").AddNew
    r2("物料编号") = r1("物料编号")
    r2("物料图号") = r1("物料图号")
    r2("客户名称") = r1("客户名称")
    r2("物料实际尺寸") = r1("物料实际尺寸")
    r2("整料生产数量") = r1("整料生产数量")
    r2("材质") = r1("材质")
    r2("材料规格") = r1("材料规格")
    r2("物料名称") = r1("物料名称")
    r2("版本号") = r1("版本号")
    r2("单价") = r1("单价")
    r2("订单欠数") = -1 * r1("去订单后实际库存")
    r2("金额") = r1("金额")
Next

Dim cnc As WinForm.CheckBox = e.Form.Controls("加工中心")
If cnc.Checked  Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产指令单加工中心.xls")
    Dim fl As String = ProjectPath & "Reports\\生产指令单加工中心.xls"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = fl
    Proc.Start()
End If
Dim sc As WinForm.CheckBox = e.Form.Controls("数控车")
If sc.Checked  Then
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产指令单数控车.xls")
    Dim fl As String = ProjectPath & "Reports\\生产指令单数控车.xls"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = fl
    Proc.Start()
End If

1、执行哪段代码有问题？

2、具体项目方法上了测试。

你的报表那里，引用的是哪个表的数据？模板发上来看看。

你对表格筛选了没有？

1、你给的例子没有数据；

2、你没有把excel模板一起发上来；

3、你需要执行以后达到什么效果？结合例子说明。