[浏览完整版]
标题：[求助]咨询
31楼
ntqhj 发表于：2022/5/26 12:52:00关于升级测试，我的设置对吗？总是提示最新版本的，找不到问题，老师请帮我看下。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:升级测试.zip |
32楼
有点蓝 发表于：2022/5/26 13:47:00开发版才支持自动升级
33楼
ntqhj 发表于：2022/5/26 13:50:00我是商业版，手动升级可以吗？
34楼
有点蓝 发表于：2022/5/26 13:59:00直接把新的table文件复制过去覆盖旧的table文件即可
35楼
ntqhj 发表于：2022/5/27 14:44:00表，选择某一行自动显示蓝底白字，不知何时设置上去的，想去掉这个突出显示行，找不到功能了，看帮助在菜单编辑里的整行，我就是找不到这个按钮
找到这个按钮了，不起作用，在哪里设置？
好了
[此贴子已经被作者于2022/5/27 14:56:19编辑过]
36楼
ntqhj 发表于：2022/6/6 23:31:00老师好！若用：FileSys.MoveFile("C:\TestDir1\test.txt", "C:\TestDir2\test2.txt") 移动文件，可否将文件名包含关键字的文件，移动到其它目录并重新命名呢？
37楼
有点蓝 发表于：2022/6/7 8:35:00参考：
dim idx as integer = 1
For Each File As String In FileSys.GetFiles("C:\TestDir1")
if FileSys.GetName(File) like "*某关键字*" then
if FileSys.GetName(File) like "*某关键字*" then
FileSys.MoveFile(File, "C:\TestDir2\test" & idx & ".txt")
idx =idx +1
endif
Next
38楼
ntqhj 发表于：2022/6/10 16:59:00小数位设成4位，窗口打印时只显示2位，这个该如何设置，提交给客户的表，单价4位，有点不好看
[此贴子已经被作者于2022/6/10 17:00:28编辑过]
39楼
有点蓝 发表于：2022/6/10 17:07:00窗口打印怎么做的？
40楼
ntqhj 发表于：2022/6/10 17:13:00e.Form.Page.PaperKind = 9 '纸张类型改为A4
e.Form.Page.Landscape = True '横向打印
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 10 '设置上边距
e.Form.Page.BottomMargin = 10 '设置下边距
Dim grp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp.Panel1)
For Each c As object In Doc.Body.Children
If Typeof c Is prt.RenderTable Then
Dim t As prt.RenderTable = c
For i As Integer = 0 To t.Rows.count-1
t.Rows(i).Height = "Auto"
Next
End If
Next
一些判断的代码没贴
doc.AutoRotate = False '禁止自动旋转打印内容
'设置页眉
Dim rx As New prt.RenderTable
rx.Cells(0,0).Text = "南通益纬物流有限公司"
rx.Cells(5,0).Text = "运输记录汇总表"
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
'rx.Style.Borders.Bottom = New prt.LineDef '设置底边框
rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx.Style.FontSize = 10 '字体大小为8磅
Doc.PageHeader = rx '作为页眉使用
doc.PageSetting.TopMargin = 15
'设置页脚
Dim tx As New prt.RenderTable
tx.Cells(0,0).Text = "打印日期:" & Date.Today
tx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"
tx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
tx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
tx.Style.Borders.top = New prt.LineDef '设置底边框
tx.CellStyle.Spacing.top = 0.5 '底端内容缩进0.5毫米
tx.Style.FontSize = 8 '字体大小为8磅
Doc.PageFooter = tx '作为页脚使用
doc.Preview()
[此贴子已经被作者于2022/6/10 17:17:02编辑过]