| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 跳转单元格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61654) |
|
| -- 作者：发财 -- 发布时间：2014/12/16 16:18:00 -- 跳转单元格 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中加入上述代码，为什么不能跳到“办公用品出货表”的单元格上呢？
|
|
| -- 作者：有点甜 -- 发布时间：2014/12/16 16:19:00 -- 例子 |
|
| -- 作者：发财 -- 发布时间：2014/12/17 9:23:00 -- 要点一下向右键，才触发到该单元格？ |
|
| -- 作者：有点甜 -- 发布时间：2014/12/17 9:34:00 -- 没问题啊，具体什么问题，做个例子 |
|
| -- 作者：发财 -- 发布时间：2014/12/17 14:45:00 -- 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 \'") ？ |
|
| -- 作者：发财 -- 发布时间：2014/12/17 15:03:00 -- 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() 上述代码为什么不行？
|
|
| -- 作者：有点甜 -- 发布时间：2014/12/17 15:18:00 -- 代码正确，你说的什么不行？ |
|
| -- 作者：发财 -- 发布时间：2014/12/17 15:27:00 -- 模板表办公用品出货表.xls中一个是模板，另一个基层领用物品表不是模板，生成后，基层领用物品表表头不见了，生成不了数据？ |
|
| -- 作者：有点甜 -- 发布时间：2014/12/17 16:00:00 -- 你可以设置跳过某一个表
http://www.foxtable.com/help/topics/2064.htm
|
|
| -- 作者：发财 -- 发布时间：2014/12/18 9:04:00 --
|