Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发-自定义函数衔接


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

主题：移动开发-自定义函数衔接
帅哥哟，离线，有人找我吗？
一笑
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		移动开发-自定义函数衔接  发帖心情 Post By：2018/2/3 16:08:00 [显示全部帖子]

httprequest代码太多，相同自定义函数简化页面，想把一下代码变为自定义函数task：     
            Dim y As Integer = Date.Today.Year
            Dim m As Integer = Date.Today.Month
            Dim dt1 As New Date(y, m, 1)
            Dim Filter1 As String
            Filter1 = "飞行日期 >= #" & dt4 & "#"            
            Dim cnt As Integer = Tables("任务书").Compute("Count([_Identify])",filter1)
            Dim txt As String = " 截止" & max & y & "今年共" & cnt & "个航段。“

于是使用： Functions.Execute("task")
但接下代码如下：
        With wb.AddArticle("page1","ar1")
            .AddContent(txt)
        End With
需要引用变量txt，报错（未定义txt），请问有没有其他办法，谢谢!
            
            

            
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/2/3 17:22:00 [显示全部帖子]

谢谢，txt可用了。另外图表也可以吗？函数如下：
            Dim Chart As New ChartBuilder '定义一个图表变量
            Dim Series As WinForm.ChartSeries '定义一个图系变量
            Chart.PrintWidth = 140
            Chart.PrintHeight = 100
            Chart.DataSource = "统计表3" '设置绑定表
            Chart.SeriesList.Clear() '清除图表原来的图系
            For Each c As Col In Tables("统计表3").Cols
                If c.Name <> "机型" Then
                    Series = Chart.SeriesList.Add() '增加一个图系
                    Series.Text = c.Name '设置图系的标题
                    Series.X.DataField = "机型" 'X轴绑定到产品列
                    Series.Y.DataField = c.Name '设置Y轴的绑定列
                    Series.DataLabelText = "{#YVAL}"
                End If
            Next
return chart
使用：
Dim Chart As New ChartBuilder = Functions.Execute("task")
报错。
  
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/2/3 17:51:00 [显示全部帖子]

报错：
无法将类型为“System.String”的对象强制转换为类型“Foxtable.ChartBuilder”。
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/2/5 9:06:00 [显示全部帖子]

函数task：
Dim Chart As New ChartBuilder '定义一个图表变量
            Dim Series As WinForm.ChartSeries '定义一个图系变量
            Chart.PrintWidth = 140
            Chart.PrintHeight = 100
            Chart.DataSource = "统计表3" '设置绑定表
            Chart.SeriesList.Clear() '清除图表原来的图系
            For Each c As Col In Tables("统计表3").Cols
                If c.Name <> "机型" Then
                    Series = Chart.SeriesList.Add() '增加一个图系
                    Series.Text = c.Name '设置图系的标题
                    Series.X.DataField = "机型" 'X轴绑定到产品列
                    Series.Y.DataField = c.Name '设置Y轴的绑定列
                    Series.DataLabelText = "{#YVAL}"
                End If
            Next
Return Chart
httprequest中：
        Dim Chart As ChartBuilder = Functions.Execute("task")
        With wb.AddArticle("page1","ar1")
            .AddTitle("h1","概况")
            .AddContent("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) &  "'/>")
        End With
求解，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/2/6 16:43:00 [显示全部帖子]

样例做好了，为节约空间，我先贴代码，如还不行我在上传。测试发现如果只返回chart,运行正常；如加上返回引用txt（标蓝处），则报错。
1. 自定义函数代码：
Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries
Chart.PrintWidth = 140
Chart.PrintHeight = 100
Chart.VisualEffect = True
For n As Integer = 0 To 1
    Series = Chart.SeriesList.Add()
    Series.Length = 10
    For i As Integer = 0 To 9
        Series.X(i) = i
        Series.Y(i) = i + n * 2 + Rand.Next(5)
    Next
Next
Dim txt As String = "可以利用Foxtable的ChartBuilder动态生成图表"
Return txt
Return Chart

2. httprequest代码：
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        Dim Chart As ChartBuilder = Functions.Execute("task")
        Dim txt As String = Functions.Execute("task")
        wb.AddPageTitle("","ph1",txt)
        wb.InsertHTML("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) &  "'/>")
        e.WriteString(wb.Build)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/2/6 19:23:00 [显示全部帖子]

不会报错了，但是生成的图表的HeaderText也被改变了。有没有其他方法，谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/2/6 22:10:00 [显示全部帖子]

代码可用。再麻烦问问如何在函数中返回GroupTableBuilder（Return g？），谢谢
Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
If e.PostValues.ContainsKey("fz") Then
    Dim fz As String = e.PostValues("fz")
    g.filter = flt
    g.Groups.AddDef(fz)
    If e.PostValues.ContainsKey("year") = True Then
        g.Groups.AddDef("飞行日期", DateGroupEnum.Year,"年")
    End If
    If e.PostValues.ContainsKey("month") = True Then
        g.Groups.AddDef("飞行日期", "月")
    End If
    g.Totals.AddDef("地面时间")
    g.Build()  
End If
Return g
 回到顶部
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 次数据查询