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编辑过]
加好友 
发短信
Post By：2020/3/29 18:03:00 [只看该作者]
