主题：[求助]查询代码加入返回值

Dim dt As DataTable = DataTables("报港登记表2")
Dim d As Date = Date.Today.AddDays(-30)
dt.LoadFilter ="  [报港时间] > #" & d & "#"
dt.Load()
Dim str As String = e.form.controls("textbox5").Text
Dim filter As String = "1=2"

For Each c As DataCol In dt.dataCols
    filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
Next
Dim count As Integer = dt.Compute("count(船号)", filter)
If count > 0 Then
    Tables(dt.name).Filter = filter
    MessageBox.Show ("共查询到" & count & "条报港条记录","XXX公司船运计划管理系统",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Form.Controls("Label11").text ="系统已为你查询到:" & Tables("报港登记表2").Compute("count(船号)") & "报港条记录"
Else If count = 0 Then
    tables(dt.name).Filter = filter
    MessageBox.Show ("没有查询到满足条件的记录","XXX船运计划管理系统",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Form.Controls("Label11").text ="系统已为你查询到:0条报港条记录"
End If