主题：请问老师，我哪里设置错误了，为什么不显示相关内容~~

还有一个问题，怎么样才能将这个提醒窗口，彻底关掉，因为现在打开了关了，他又出现~~

老师，出现点问题了~~
此主题相关图片如下：360截图20140519223039812.jpg

Dim filter As String = "[编号] = '" & e.Link.Name & "'"
Dim fdr As DataRow = DataTables("个案申请").Find(filter)
If fdr Is Nothing Then
    DataTables("个案申请").AppendLoad(filter, False)
End If
Dim idx As Integer = Tables("个案申请").FindRow(filter)
If idx > -1 Then
    Tables("个案申请").Position = idx
    Forms("功能栏").Open()
    fdr = DataTables("个案任务提醒").sqlFind(filter)
    fdr("用户") = cStr(fdr("用户")).replace(user.Name & ",", "").replace("," & user.Name, "").replace(user.name, "")
    fdr.save
End If

Dim fdr1 As DataRow = DataTables("文件管理").Find(filter)
If fdr1 Is Nothing Then
    DataTables("文件管理").AppendLoad(filter, False)
End If
Dim idx1 As Integer = Tables("文件管理").FindRow(filter)
If idx1 > -1 Then
    Tables("文件管理").Position = idx1
    Forms("文件管理").Open()
    fdr1 = DataTables("文件查询提醒").sqlFind(filter)
    fdr1("用户") = cStr(fdr1("用户")).replace(user.Name & ",", "").replace("," & user.Name, "").replace(user.name, "")
    fdr1.save
End If

 

 

我看了一下，我没发现什么问题额·~~？？？

为什么“文件管理”的最新文件，不能定位到“原文件的”而是定位错误？？

idx

我有分idx
和idx1

 

以上代码是加入，窗口代码还是，计划管理？？

我明白了，我加入了计划管理，实现了~~

Dim filter As String = "[编号] = '" & e.Link.Name & "'"
Dim fdr As DataRow = DataTables("个案申请").Find(filter)
If fdr Is Nothing Then
    DataTables("个案申请").AppendLoad(filter, False)
End If
Dim idx As Integer = Tables("个案申请").FindRow(filter)
If idx > -1 Then
    Tables("个案申请").Position = idx
    Forms("功能栏").Open()
    fdr = DataTables("个案任务提醒").sqlFind(filter)
    fdr("用户") = cStr(fdr("用户")).replace(user.Name & ",", "").replace("," & user.Name, "").replace(user.name, "")
    fdr.save
End If

Dim fdr1 As DataRow = DataTables("文件管理").Find(filter)
If fdr1 Is Nothing Then
    DataTables("文件管理").AppendLoad(filter, False)
End If
Dim idx1 As Integer = Tables("文件管理").FindRow(filter)
If idx1 > -1 Then
    Tables("文件管理").Position = idx1
    Forms("文件管理").Open()
    fdr1 = DataTables("文件查询提醒").sqlFind(filter)
    fdr1("用户") = cStr(fdr1("用户")).replace(user.Name & ",", "").replace("," & user.Name, "").replace(user.name, "")
    fdr1.save
End If

 

 

为什么“文件管理”的最新文件，不能定位到“原文件的”而是定位错误？？

Static maxIdx As Integer
Dim idx As Integer = DataTables("个案任务提醒").SQLCompute("max(_Identify)")
If maxIdx >= idx Then
    Return

Else

    maxIdx = idx
End If

 

 

以上这段代码，只是针对 idx，如果我新增的内容是 idx1的话，他不会弹出，我的目的是无论是增加 idx还是 idx1，都会弹出，如果不是，就关闭不弹出。

 

代码是不是这样写？

 

Static maxIdx As Integer
Dim idx As Integer = DataTables("个案任务提醒").SQLCompute("max(_Identify)")
If maxIdx >= idx Then
    Return

Else

    maxIdx = idx

End If

Dim idx As Integer = DataTables("文件查询提醒").SQLCompute("max(_Identify)")
If maxIdx >= idx Then
    Return

Else

    maxIdx = idx

End If

 

Dim filter As String = "[表名_编号] = '" & e.Link.Name & "'"

 

是这样吗？？但不行额·~~任务提醒表，表名列，没有生成，对应的表名称？？

此主题相关图片如下：360截图20140519225929765.jpg