Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口表不能实现查询功能


  共有2934人关注过本帖树形打印复制链接

主题：[求助]窗口表不能实现查询功能
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		[求助]窗口表不能实现查询功能  发帖心情 Post By：2016/10/16 22:52:00 [显示全部帖子]

我这个系统是连接外部数据源，在没有录入大量数据和弄好分页加载之前我的窗口表的查询是可以用的，但是之后就不能用了，出现了以下错误：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,户明细账缴费查询,Button1,Click
详细错误信息：
未将对象引用设置到对象的实例。

请问是什么原因？如何解决它？
 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 10:42:00 [显示全部帖子]

Forms("缴费户卡").Open
Dim dr1 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411", 0)
Dim dr2 As DataRow = DataTables("T246").Find("[F4411] Is Not Null", "F4411 Desc",0)
Dim d1 As Date
Dim d2 As Date
Dim drl0 As DataRow
Dim dt1 As Date =dr1("F4411")
Dim dt2 As Date =dr2("F4411")



Dim val1 As New List (of String)
val1= DataTables("T246").GetValues("F4386")
Dim d As Integer = dt2.Year -dt1.Year
Dim j As Integer = 0
Dim drl As New List (of DataRow)
Dim filter As String =""
For i As Integer = 0 To d
    d1 = New Date(dt1.Year+i-1,11,15) '取得该年的第一天
    d2 = new Date(dt1.Year+i,11,15) '取得该年的最后一天
    For Each val As String In val1
        drl0 = DataTables("T246").Find("[F4411] >= #" & d1 & "# And [F4411] <= #" & d2 & "# And [F4386] ='" & val & "'","F4411 Desc",0)
        If drl0 IsNot Nothing Then
            drl.add(drl0)
            j= j+1
        End If
    Next
Next
For k As Integer = 0 To j-1
    If Filter > ""  Then
        Filter = Filter & " or "
    End If
    filter = filter & "[T246Id] = '" &  drl(k)("T246Id")  &  "'"
Next

Dim filter1 As String = ""

With e.Form.Controls("comboBox1")
    If .Value IsNot Nothing Then
        filter1 = "[F5319] Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If filter1 > "" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4362] Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4387]  Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("TextBox3")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4386]Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("TextBox4")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4385] Like '*" & .Value & "*'"
    End If
End With
With e.Form.Controls("TextBox5")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4384]Like '*" & .Value & "*'"
    End If
End With
If filter1 > "" Then
    filter1 = filter1 & " and"
End If
If filter > "" Then
filter = "( " & filter & " ) "
End If
filter1 = filter1 & filter

Forms("缴费户卡").Controls("Table1").Table.filter = filter1

我看不出那里有问题图片点击可在新窗口打开查看。在弄分页加载前这段代码没有问题。。。
 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 10:55:00 [显示全部帖子]

话说把这段代码改为SQL语句是不是就可以在后台上对所有数据进行查询了？

 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 11:36:00 [显示全部帖子]

其它代码是什么呢？图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 11:41:00 [显示全部帖子]

还有，用SQL从后台查询一万多行数据会不会花很多时间？

 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 12:01:00 [显示全部帖子]

为什么加上If dr1 Is Nothing OrElse dr2 Is Nothing Then Return
就可以解决呢？
什么原因？
 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 12:16:00 [显示全部帖子]

虽然现在问题这个问题解决了，但是查询结果显示的是全部内容，好像没有执行查询筛选，是不是代码后面filter有问题？

 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 12:26:00 [显示全部帖子]

虽然这个问题解决了，但是这段代码运行出来的查询结果还是显示出T246表的全部数据，好像没有进行查询筛选，是不是代码后面filter有问题？

 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/17 12:34:00 [显示全部帖子]

还是说前面find方法找不到filter参数？还是其它地方有问题？

 回到顶部
帅哥哟，离线，有人找我吗？
qscwdvefb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：904 威望：0 精华：0 注册：2016/8/4 10:50:00 		  发帖心情 Post By：2016/10/22 12:55:00 [显示全部帖子]

Forms("缴费户卡").Open

Dim dr1 As DataRow = DataTables("T246").SQLFind("[F4411] Is Not Null", "F4411", 0)
messagebox.show("123")
Dim dr2 As DataRow = DataTables("T246").SQLFind("[F4411] Is Not Null", "F4411 Desc",0)
messagebox.show("456")
If dr1 Is Nothing OrElse dr2 Is Nothing Then Return
Dim d1 As Date
Dim d2 As Date
Dim drl0 As DataRow

Dim dt1 As Date =dr1("F4411")

Dim dt2 As Date =dr2("F4411")



Dim val1 As New List (of String)
val1= DataTables("T246").GetValues("F4386")
Dim d As Integer = dt2.Year -dt1.Year
Dim j As Integer = 0
Dim drl As New List (of DataRow)
Dim filter As String =""

messagebox.show(filter)
For i As Integer = 0 To d
    d1 = New Date(dt1.Year+i-1,11,5) '取得该年的第一天
    d2 = new Date(dt1.Year+i,11,5) '取得该年的最后一天
    For Each val As String In val1
        drl0 = DataTables("T246").Find("[F4411] >= #" & d1 & "# And [F4411] <= #" & d2 & "# And [F4386] ='" & val & "'","F4411 Desc",0)
        If drl0 IsNot Nothing Then
            drl.add(drl0)
            j= j+1
        End If
    Next
Next
For k As Integer = 0 To j-1
    If Filter > ""  Then
        Filter = Filter & " or "
    End If
    filter = filter & "[T246Id] = '" &  drl(k)("T246Id")  &  "'"
Next
messagebox.show(filter)
Dim filter1 As String = ""
messagebox.show(filter1)
With e.Form.Controls("comboBox1")
    If .Value IsNot Nothing Then
        filter1 = "[F5319] Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If filter1 > "" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4362] Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4387]  Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("TextBox3")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4386]Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("TextBox4")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4385] Like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("TextBox5")
    If .Value IsNot Nothing Then
        If filter1 >"" Then
            filter1 = filter1 & " And "
        End If
        filter1 = filter1 & "[F4384]Like '%" & .Value & "%'"
    End If
End With
If filter1 > "" Then
    filter1 = filter1 & " and"
End If
If filter > "" Then
filter = "( " & filter & " ) "
End If
filter1 = filter1 & filter
messagebox.show(filter1)

Dim dt As DataTable = Forms("缴费户卡").Controls("Table1").Table.DataTable
dt.LoadFilter = filter1 
dt.LoadTop = 20
dt.LoadPage = 0
dt.Load
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05371 秒, 5 次数据查询