Foxtable(狐表) → 用户栏目 → 专家坐堂 → Dim rxD As New prt.RenderText


  共有6618人关注过本帖树形打印复制链接

主题：Dim rxD As New prt.RenderText
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/30 8:31:00 [显示全部帖子]

变量名称无法动态使用。在循环里使用，使用同一个变量名即可，不会冲突的

For c As Integer = 1 To 50
      Dim rxD As New prt.RenderText '定义一个文本对象 
Next 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/30 14:18:00 [显示全部帖子]

遍历这一行所有单元格判断即可

dim a as string = Sheet(0,0).value
dim m as integer = 0
for i as integer = 1 to Sheet.Cols.count - 1
if Sheet(0,i).value <> a then
magbox(a & "值开始列" & m & ",结束列" & (i-1))
合并单元格
m = i
a = Sheet(0,i).value
end if
next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/30 16:47:00 [显示全部帖子]

execl文档发上来看看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/30 17:24:00 [显示全部帖子]

pdf看不出行列的索引，生成execl发上来看。应该是行列的索引计算不准确导致的

dim a as string = Sheet(0,0).value 这里假设第一行是要合并的，0指第一行索引
dim m as integer = 0 这里假设从第一列开始判断合并
for i as integer = 1 to Sheet.Cols.count - 1 从下一列也就是第二列开始遍历
if Sheet(0,i).value <> a then 这里0指的是需要合并的行，和上面红字对应
magbox(a & "值开始列" & m & ",结束列" & (i-1))
合并单元格
m = i 
a = Sheet(0,i).value 这里0指的是需要合并的行，和上面红字对应
end if
next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/1 12:05:00 [显示全部帖子]

ra = rt.Cells(2, 4).Area 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/1 13:42:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/3 10:07:00 [显示全部帖子]


Select Case e.DataCol.name 
    Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11"
        If e.DataRow("计划实际") = "实际" Then
            Dim ary() As String = {"D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11"}
            Dim sum2 As Integer = 0
            For Each c As String In ary
                If e.DataRow(c) = "F" Then
                    Dim Index As Integer
                    Index = Tables("模具项目进度").FindRow(e.DataRow) '找出此行在数据Table中的位置
                    If Index > -1 Then '如果找到此行
                        e.DataRow("合计") = Tables("模具项目进度").Rows(index - 1)("合计") '输入上一行的数据
                    End If
                    Exit For
                ElseIf e.DataRow(c) = "f" Then
                    sum2 = sum2 + 1
                    ' Continue For
                End If
            Next
            e.DataRow("合计") = sum2 
        End If
End Select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110582 积分：562806 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/3 13:49:00 [显示全部帖子]

            For Each c As String In ary
dim s as string = e.DataRow(c)
                If s.Equals("F") Then
                    Dim Index As Integer
                    Index = Tables("模具项目进度").FindRow(e.DataRow) '找出此行在数据Table中的位置
                    If Index > -1 Then '如果找到此行
                        e.DataRow("合计") = Tables("模具项目进度").Rows(index - 1)("合计") '输入上一行的数据
                    End If
                    Exit For
                ElseIf s.Equals("f") Then
                    sum2 = sum2 + 1
                    ' Continue For
                End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询