转置后的临时表怎么用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 转置后的临时表怎么用

共有14723人关注过本帖树形打印复制链接主题：转置后的临时表怎么用

有点蓝

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/16 23:10:00 [显示全部帖子]

For i As Integer = 0 To Tables("学生入学注册情况").Rows.Count - 1

Tables("学生入学注册情况").Position = i

Dim Book As New XLS.Book(ProjectPath & "Attachments\成绩通知单.xls")

Dim fl As String = ProjectPath & "Reports\" & Tables("学生入学注册情况").Current("学号") & "\成绩通知单.pdf"

Book.Build() '生成细节区

Book.SaveToPDF(fl) '保存为PDF文件

去掉模板里的班级条件

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/17 13:53:00 [显示全部帖子]

Dim p As WinForm.ProgressBar

p = e.Form.Controls("ProgressBar1")

p.Minimum = 0

p.Maximum = Tables("入学注册").Rows.Count

p.Value = 0

Dim 标签 As WinForm.Label = Forms("窗口1").Controls("Label1")

For i As Integer = 0 To Tables("入学注册").Rows.Count - 1

p.value += 1

标签.Text = "共有" & p.Maximum & "份成绩单需要发放,已发放" & i+1 & "份"

Application.Doevents

Tables("入学注册").Position = i

Dim Book As New XLS.Book(ProjectPath & "Attachments\考试成绩通知单.xls")

Dim fl As String = "d:\成长档案\" & Tables("入学注册").Current("学籍辅号") & "\考试成绩通知单.pdf"

Book.Build() '生成细节区

Book.SaveToPDF(fl) '保存为PDF文件

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/1 11:18:00 [显示全部帖子]

这些代码我也看不懂，甜版明天上班

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/1 14:11:00 [显示全部帖子]

For Each c As String in ls1

http://www.foxtable.com/webhelp/scr/0226.htm

多看看编程基础

有点蓝

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/3 22:32:00 [显示全部帖子]

这个意思？

Dim s As Double = 0

For i As Integer = 1 To ary1.length
    Dim idx = array.Indexof(hj, cstr(ary1.length-i))
    If idx >= 0 Then
        s = s + math.Abs(ary1(i-1)-(idx))

End If
Next

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/15 16:17:00 [显示全部帖子]

方法一样

If Vars("执行") = true Then

For i As Integer = 0 To ary2.length-1
Tables("sp表").Cols(ary2(i)).Move(1)
Next

Vars("执行") = false

End If

需要执行的时候设置

Vars("执行") = true

下一主题 >> << 上一主题

总数 17 上一页 1 2

主题：转置后的临时表怎么用