- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教如下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195692)
-- 发布时间：2025/3/1 15:24:00
-- 请教如下
这里的-9 可以变量吗
-- 发布时间：2025/3/1 17:14:00
--
不可以。可以通过代码更改，比如：http://www.foxtable.com/webhelp/topics/2626.htm
-- 发布时间：2025/3/4 8:24:00
--
If Tables("加工收发明细").current("单据状态")="已审核"
DataTables("加工收发明细").ReplaceFor("打印标志","已打印")
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(5,1).Value ="<加工收发明细,-12>"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
App.Visible = False
App.Caption = "汉思软件"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
Else
messagebox.show("已审核的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
我的代码如下 红色代码不起作用
-- 发布时间：2025/3/4 8:26:00
--
此主题相关图片如下：1.png
-- 发布时间：2025/3/4 8:42:00
--
Sheet(5,0).Value ="<加工收发明细,-12>"
-- 发布时间：2025/3/4 8:47:00
--
可以了 谢谢