[求助]咨询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

关于升级测试，我的设置对吗？总是提示最新版本的，找不到问题，老师请帮我看下。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:升级测试.zip

开发版才支持自动升级

我是商业版，手动升级可以吗？

直接把新的table文件复制过去覆盖旧的table文件即可

表，选择某一行自动显示蓝底白字，不知何时设置上去的，想去掉这个突出显示行，找不到功能了，看帮助在菜单编辑里的整行，我就是找不到这个按钮

找到这个按钮了，不起作用，在哪里设置？

好了

[此贴子已经被作者于2022/5/27 14:56:19编辑过]

老师好！若用：FileSys.MoveFile("C:\TestDir1\test.txt", "C:\TestDir2\test2.txt") 移动文件，可否将文件名包含关键字的文件，移动到其它目录并重新命名呢？

参考：

dim idx as integer = 1

For Each File As String In FileSys.GetFiles("C:\TestDir1")
if FileSys.GetName(File) like "*某关键字*" then

FileSys.MoveFile(File, "C:\TestDir2\test" & idx & ".txt")

idx =idx +1

endif

小数位设成4位，窗口打印时只显示2位，这个该如何设置，提交给客户的表，单价4位，有点不好看

[此贴子已经被作者于2022/6/10 17:00:28编辑过]

窗口打印怎么做的？

e.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"

End If

一些判断的代码没贴

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编辑过]

主题：[求助]咨询