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


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

主题:Dim rxD As New prt.RenderText

帅哥,在线噢!
有点蓝
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105490 积分:536441 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/1 12:05:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/12/1 13:36:00 [只看该作者]

Dim Line As New prt.LineDef(2, Color.Red)
Dim ln As New prt.RenderLine(20,20, 80, 80, Line)

上面是把一条线条进行定位(20,20, 80, 80)的方法,如果是一个文本对象,要怎样进行定位呢?

 回到顶部
帅哥,在线噢!
有点蓝
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105490 积分:536441 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/1 13:42:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/12/1 15:19:00 [只看该作者]

谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/12/3 8:48:00 [只看该作者]

Select Case e.DataCol.name 
    Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11"
        Dim ary() As String = {"D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11"}
        If array.Indexof(ary, e.DataCol.name) >= 0 Then
        Dim sum2 As Integer = 0
        For Each c As String In ary
            If e.DataRow("计划实际") = "实际" Then
                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
                    e.DataRow("合计") = sum2 
                   ' Continue For
                End If
            End If
        Next
        End If
End Select

 上面的代码我是希望统计某一行含有多少个 f ,如果碰到了 F,就退出统计。现在,如果碰到了F就退出统计这个目的是达到了,但是统计f个数却没有效果(无论我是否加 Continue For 这行)。请教是哪里的问题呢?谢谢。

 回到顶部
帅哥,在线噢!
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105490 积分:536441 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/12/3 13:00:00 [只看该作者]

上面代码运行后,无论是否有 F 或者 f ,e.DataRow("合计") 的结果都是 0。所以还是有问题。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/12/3 13:12:00 [只看该作者]

我发现,它无法区分 F 还是 f ,我把 f 换成另一个字母,计算就没有问题了。那如何能让它区分 F 还是 f 呢?谢谢

 回到顶部
帅哥,在线噢!
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105490 积分:536441 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/12/3 15:19:00 [只看该作者]

谢谢。

 回到顶部
总数 20 上一页 1 2