[求助]查询代码加入返回值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红袍老师，这段代码如何修改加入一个判断值？，如果没有查到，弹出一个窗口，提示“没有查询到满足条件的记录”

Dim str As String = e.form.controls("textbox22").Text

Dim filter As String = "1=2"

For Each c As Col In CurrentTable.Cols

filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"

CurrentTable.Filter = filter

e.Form.Controls("Label27").text ="共查询到有:" & Tables("FAJHB").Compute("count(计划单号)") & "条记录,请通过点击上下行按钮进行选择"

[此贴子已经被作者于2016/6/9 16:48:44编辑过]

Dim str As String = e.form.controls("textbox22").Text
Dim filter As String = "1=2"
For Each c As Col In CurrentTable.Cols
    filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
Next
Dim count As Integer = CurrentTable.Compute("count(计划单号)", filter)
If count = 0 Then
    msgbox("没有符合记录")
Else
    CurrentTable.Filter = filter
    e.Form.Controls("Label27").text ="共查询到有:" & count & "条记录,请通过点击上下行按钮进行选择"
End If

红袍老师，我进行了小小的改动，发现总是执行没有查到符合条件的记录，这可愁死我了。怎么改呢？

Dim StartDate As Date = Date.Today().AddDays(-30)

Dim d As Date = Date.Today.AddDays(-30)

DataTables("报港登记表2").LoadFilter =" [报港时间] > '" & d & "'"

DataTables("报港登记表2").Load()

Dim str As String = e.form.controls("textbox5").Text

Dim filter As String = "1=2"

For Each c As Col In CurrentTable.Cols

filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"

Dim count As Integer = CurrentTable.Compute("count(船号)", filter)

If count > 0 Then

CurrentTable.Filter = filter

MessageBox.Show ("共查询到" & Tables("报港登记表2").Compute("count(船号)") & "条报港条记录","XXX公司船运计划管理系统",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Form.Controls("Label11").text ="系统已为你查询到:" & Tables("报港登记表2").Compute("count(船号)") & "报港条记录"

Else If count = 0 Then

CurrentTable.Filter = filter

MessageBox.Show ("没有查询到满足条件的记录","XXX船运计划管理系统",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Form.Controls("Label11").text ="系统已为你查询到:0条报港条记录"

End If

[此贴子已经被作者于2016/6/11 12:02:35编辑过]

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

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