专家坐堂-[求助]这是计划管理中的代码，为何会出现这样的情况？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]这是计划管理中的代码，为何会出现这样的情况？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53192)

--  作者：倪惠明
--  发布时间：2014/7/2 8:03:00
--  [求助]这是计划管理中的代码，为何会出现这样的情况？

Dim flt As String
Dim drs As List(Of DataRow)
flt = "接收人 = \'" & _UserName & "\' And 接收时间 Is Null"
drs = DataTables("内部通知").AppendLoad(flt,False)

Dim s As Integer = DataTables("内部通知").compute("count(_Identify)","接收人 = \'" & _UserName & "\' and 接收时间 Is Null")
If s>0 Then
    Vars("sd") = s
    Forms("提醒窗口").Open(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight)
    MyTimers("计划1").Enabled = False
    For i As Integer = 1 To 330
        Forms("提醒窗口").setbounds(SysInfo.WorkingAreaWidth-580,SysInfo.WorkingAreaHeight-i,580,300)
    Next
End If

此主题相关图片如下：qq截图20140702075041.png

--  作者：Bin
--  发布时间：2014/7/2 8:33:00
--
你应该是追载了重复的数据, 应该在条件里加入

Dim id As Integer = DataTables("内部通知").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id

flt = "接收人 = \'" & _UserName & "\' And 接收时间 Is Null and " & Filter
drs = DataTables("内部通知").AppendLoad(flt,False)

--  作者：倪惠明
--  发布时间：2014/7/2 9:13:00
--

非常感谢！