Foxtable(狐表)用户栏目专家坐堂 → 导出Excel模板中的公式如何写


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

主题:导出Excel模板中的公式如何写

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


加好友 发短信
等级:超级版主 帖子:110563 积分:562705 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/3 21:58:00 [显示全部帖子]

设计好模板,参考:http://www.foxtable.com/webhelp/scr/2877.htm

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:缴费信息统计表.xls


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


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

参考:http://www.foxtable.com/webhelp/topics/1414.htm

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:123.xls



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


加好友 发短信
等级:超级版主 帖子:110563 积分:562705 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/26 20:43:00 [显示全部帖子]

        For n As Integer = 1 To Sheet.Rows.Count -1
dim v as double = val(sheet(n,nms("涨幅%")).Text)
if v < 5 then continue for
            Dim sfzhm As String = sheet(n,nms("代码")).Text
            Dim kc As String = sheet(n,nms("名称")).Text
            If sfzhm = "" Then Continue For
            Dim dr As DataRow = dt.Find("代码 = '" & sfzhm & "' and 名称 = '" & kc & "'")
            If dr Is Nothing Then
                ls.add(n)
            Else
                dic.Add(dr, n)
            End If
        Next

 回到顶部