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

老师，出现点问题了~~
此主题相关图片如下：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

 

 

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

 

原本就是会这样的，你在前面加入代码，如果没有新内容，关闭了，就不打开了

 

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

Else

    maxIdx = idx
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

 

 

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

 

额，不要这样做，不要用两个表。一个表就够了。【任务表】

 

任务表里面加入一列，可以叫窗口列、或者叫表名列。

 

生成link的时候，设置e.Link.Name就设置成比如【窗口列_编号列】

 

在点击的时候，根据e.Link.Name取出窗口列和编号列，写代码。这样代码就不必重复了，而且结构很好。

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

 

 回复39楼，请看38楼，你要把两表的内容合并成一个表才规范。