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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义函数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148023)

--  作者：lxhmax
--  发布时间：2020/3/29 18:03:00
--  自定义函数

For Each r2 As DataRow In dt.DataRows
Dim r3 As DataRow = DataTables("新房信息").SQLFind("房产编号 = \'" & r2("房产编号") & "\'")
If r3 IsNot Nothing Then \'\'\'新房
a = a + 1
wb.AppendLine("<div class=\'house-wrap k\'>")
wb.AppendLine("<div class=\'house-pic\'>")
wb.AppendLine("<img src=\'/New house/" & r3("项目名称") & "/" & r3("项目名称") & "x" & ".jpg\' alt=\'" & r3("项目名称") & "\'>")
wb.AppendLine("</div>")
wb.AppendLine("</div>")
Else \'\'\'二手房
Dim r As DataRow = DataTables("房产信息").SQLFind("房产编号 = \'" & r2("第八列") & "\'")
If r IsNot Nothing Then
a = a + 1
wb.AppendLine("<div class=\'house-wrap k\'>")
wb.AppendLine("<a class=\'house pr hor-view box\' href=\'fyxx.htm?khbh=" & khbh & "&id=" & r("房产编号") & "\' sap-expo=\'true\'>")
wb.AppendLine("<div class=\'house-info\'>")
wb.AppendLine("<p class=\'house-name line-clamp-1\'>" & r("小区名称") & " " & r("楼层") & "</p>")
wb.AppendLine("</a>")
wb.AppendLine("</div>")
End If
End If
Next

请问老师们，这里面的红色跟蓝色内容因为在很多地方引用，有时候修改起来每个地方都要修改，我想把他放到自定义函数里，然后换成下面的格式来执行代码，请问这个自定义函数要怎么编写？

For Each r2 As DataRow In dt.DataRows
Dim r3 As DataRow = DataTables("新房信息").SQLFind("房产编号 = \'" & r2("房产编号") & "\'")
If r3 IsNot Nothing Then \'\'\'新房
Functions.Execute("房源","新房")
Else \'\'\'二手房
  Dim r As DataRow = DataTables("房产信息").SQLFind("房产编号 = \'" & r2("房产编号") & "\'")
If r IsNot Nothing Then
Functions.Execute("房源","二手房"）
End If
End If
Next

[此贴子已经被作者于2020/3/29 18:08:43编辑过]

--  作者：李孝春
--  发布时间：2020/3/29 18:27:00
--  回复：（lxhmax）自定义函数
你那颜色部分是页面代码吧

在自定义函数里面去写一个完整的页面代码

--  作者：有点蓝
--  发布时间：2020/3/29 21:51:00
--
键2个函数

函数名称1：新房
dim 项目名称 as string =args(0)
dim wb as stringbuilder
wb.AppendLine("<div class=\'house-wrap k\'>")
wb.AppendLine("<div class=\'house-pic\'>")
wb.AppendLine("<img src=\'/New house/" & 项目名称 & "/" &  项目名称 & "x" & ".jpg\' alt=\'" & 项目名称 & "\'>")
wb.AppendLine("</div>")
wb.AppendLine("</div>")
return wb.tostring

函数名称2：二手房
dim 房产编号 as string =args(0)
dim 小区名称 as string =args(1)
dim 楼层 as string =args(2)
dim wb as stringbuilder
wb.AppendLine("<div class=\'house-wrap k\'>")
wb.AppendLine("<a class=\'house pr hor-view box\' href=\'fyxx.htm?khbh=" & khbh & "&id=" & 房产编号& "\' sap-expo=\'true\'>")
wb.AppendLine("<div class=\'house-info\'>")
wb.AppendLine("<p class=\'house-name line-clamp-1\'>" & 小区名称  & " " & 楼层 & "</p>")
wb.AppendLine("</a>")
wb.AppendLine("</div>")
return wb.tostring

调用
For Each r2 As DataRow In dt.DataRows
Dim r3 As DataRow = DataTables("新房信息").SQLFind("房产编号 = \'" & r2("房产编号") & "\'")
If r3 IsNot Nothing Then \'\'\'新房
wb.Append(Functions.Execute("新房",r3("项目名称")))
Else \'\'\'二手房
  Dim r As DataRow = DataTables("房产信息").SQLFind("房产编号 = \'" & r2("房产编号") & "\'")
If r IsNot Nothing Then
wb.Append(Functions.Execute("二手房",r("房产编号"),r("小区名称"),r("楼层")）)
End If
End If
Next

--  作者：lxhmax
--  发布时间：2020/4/15 19:15:00
--  自定义函数报错

老师，调用下面这个函数的时候，会报错，请问下是什么情况？
wb.Append(Functions.Execute("新房",r3("项目名称")))

函数名称1：新房
dim 项目名称 as string =args(0)
dim wb as stringbuilder
msgbox(1)---------这个能正常弹出提示
wb.AppendLine("<div class=\'house-wrap k\'>") ----报错
msgbox(2)---------这个提示无法弹出
wb.AppendLine("<div class=\'house-pic\'>")
wb.AppendLine("<img src=\'/New house/" & 项目名称 & "/" &  项目名称 & "x" & ".jpg\' alt=\'" & 项目名称 & "\'>")
wb.AppendLine("</div>")
wb.AppendLine("</div>")
return wb.tostring

--  作者：有点蓝
--  发布时间：2020/4/16 8:59:00
--
dim wb as new stringbuilder