以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]查询代码加入返回值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86078)
--  作者：scofields
--  发布时间：2016/6/9 16:48:00
--  [求助]查询代码加入返回值
红袍老师，这段代码如何修改加入一个判断值？，如果没有查到，弹出一个窗口，提示“没有查询到满足条件的记录”
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
CurrentTable.Filter = filter
 e.Form.Controls("Label27").text ="共查询到有:" & Tables("FAJHB").Compute("count(计划单号)") & "条记录,请通过点击上下行按钮进行选择"
[此贴子已经被作者于2016/6/9 16:48:44编辑过]
--  作者：大红袍
--  发布时间：2016/6/10 19:28:00
--  
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
--  作者：scofields
--  发布时间：2016/6/11 12:02:00
--  
红袍老师，我进行了小小的改动，发现总是执行没有查到符合条件的记录，这可愁死我了。怎么改呢？
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 & "%\'"
Next
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编辑过]
--  作者：大红袍
--  发布时间：2016/6/11 13:44:00
--  

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