移动开发-自定义函数衔接 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2533人关注过本帖树形打印复制链接主题：移动开发-自定义函数衔接

一笑

小大 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

加好友

发短信

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

Post By：2018/2/3 16:11:00 [只看该作者]

函数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 & "个航段。“

return txt

使用：

dim txt as string = Functions.Execute("task")

With wb.AddArticle("page1","ar1")

.AddContent(txt)

End With

一笑

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

return chart

使用：

Dim Chart As New ChartBuilder = Functions.Execute("task")

报错。

有点蓝

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

加好友

发短信

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

Post By：2018/2/3 17:28:00 [只看该作者]

Dim Chart As ChartBuilder = Functions.Execute("task")

一笑

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

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

Post By：2018/2/3 17:51:00 [只看该作者]

报错：

无法将类型为“System.String”的对象强制转换为类型“Foxtable.ChartBuilder”。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/4 19:30:00 [只看该作者]

以下是引用一笑在2018/2/3 17:51:00的发言：
报错：

无法将类型为“System.String”的对象强制转换为类型“Foxtable.ChartBuilder”。

3楼是你函数的代码？如果是，不可能报错。如果不是，贴出你函数的代码。

一笑

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

求解，谢谢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/5 9:26:00 [只看该作者]

执行这个代码，不可能报错

Dim Chart As ChartBuilder = Functions.Execute("task")

实例发上来测试

一笑

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/2/6 18:10:00 [只看该作者]

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
chart.HeaderText = "可以利用Foxtable的ChartBuilder动态生成图表"
Return Chart

-------------------

Dim Chart As ChartBuilder = Functions.Execute("task")

Dim txt As String = chart.HeaderText

wb.AddPageTitle("","ph1",txt)

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

总数 14 1 2 下一页

主题：移动开发-自定义函数衔接