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

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>")

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

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

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

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

你那颜色部分是页面代码吧

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

键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>")

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

老师，调用下面这个函数的时候，会报错，请问下是什么情况？

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>")

return wb.tostring

dim wb as new stringbuilder

主题：自定义函数