主题：跳转单元格

Tables("办公用品出货表").Current("编号") = e.Table.Current("编号")

Forms("办公用品表").Close

Dim tt As Table = Tables("办公用品出货表")

Dim ii As Integer = tt.Rows.Count -1

Tables("办公用品出货表").Select(ii,4)

Tables("办公用品出货表").StartEditing

在doubleclick中加入上述代码，为什么不能跳到“办公用品出货表”的单元格上呢？

For n As Integer = 4 To 33

    Sheet1(n,2).Value = Tables("办公用品出货表").Compute("Sum(数量)", "领用单位 = 'Sheet2(m,1).Value '")

    'Sheet1(n,2).Value = Tables("办公用品出货表").Compute("Sum(金额)", "领用单位 = '食品'")

Next

如何修改代码    Sheet1(n,2).Value = Tables("办公用品出货表").Compute("Sum(数量)", "领用单位 = 'Sheet2(m,1).Value '")  ？

Dim Book1 As New XLS.Book(ProjectPath & "模板\办公用品出货表.xls")

Dim f1 As String = ProjectPath & "资料文件夹\办公用品出货表.xls"

Book1.Build() '生成细节区

Book1.Save(f1) '保存工作簿

'Dim f2 As String = "E:\财务数据汇总\资料文件夹\办公用品出货表1.xls"

Dim Book2 As New XLS.Book(f1)

Dim Sheet1 As XLS.Sheet = Book2.Sheets("基层领用物品")

For n As Integer = 4 To 33

    Sheet1(n,2).Value = Tables("办公用品出货表").Compute("Sum(金额)", "[领用单位] = '" & Sheet1(n,1).Value & "'")

Next

Book2.Save(f1) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = f1

Proc.Start()

上述代码为什么不行？