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

老师，这里有点问题额，新增在“个案任务提醒”的文件编号，与“个案申请”的文件编号，不统一，所以在提醒窗口中无法打开相应的窗口~~

 

其中“个案申请”的表的代码是

BeforeSaveDataRow

 

Dim dr As DataRow = e.DataRow
Dim pf As String
If dr.RowState <> DataRowState.Added Then '如果不是新增行
    Return '那么返回
ElseIf dr.IsNull("日期") Then '如果没有输入日期
    e.Cancel = True '取消保存此行
    MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
Else
    pf = Format(dr("日期"),"yyMM") '否则获得编号的前缀,两位年,两位月
End If

'对任务栏表进行操作
Dim dt As DataTable = DataTables("个案任务提醒")
Dim msg As String
If e.DataRow.isnull("裁决")=False Then
    msg  = "已结案"
Else If e.DataRow.isnull("终审")=False Then
    msg = "待裁决"
Else If e.DataRow.isnull("批准") =False Then
    msg  = "待终审"
Else If e.DataRow.Isnull("审核") = False Then
    msg  = "待批准"
Else
    msg  = "待审核"
End If
dt.DeleteFor("文件名称='" & e.DataRow("文件名称") & "'")
Dim ndr As DataRow = dt.AddNew
ndr("编号") = e.DataRow("编号")
ndr("文件名称") = e.DataRow("文件名称")
ndr("状态") = msg
Dim us As String = ""
For Each user As UserInfo In users
    us &= user.Name & ","
Next
ndr("用户") = us.TrimEnd(",")
dt.Save

If dr.RowState = DataRowState.Added Then '如果不是新增行

Dim cmd1 As New SQLCommand
Dim cmd2 As New SQLCommand
Dim Key As Integer
Dim nm As String = e.DataTable.name
cmd1.C '设置数据源名称
cmd2.C
cmd1.commandText = "Select Count(*) From [编号] Where [前缀] = '" & pf & "' And 表名 = '" & nm & "'"
If cmd1.ExecuteScalar = 0 Then '如果编号表不存在前缀的行,那么增加一行
    cmd1.commandtext = "Insert Into 编号 (表名, 前缀, 顺序号) Values('" & nm & "','" & pf & "',1)"
    cmd1.ExecuteNonQuery
End If
cmd1.commandText = "Select [顺序号] From [编号] Where [前缀] = '" & pf & "' And 表名 = '" & nm & "'"
Do
    Key = cmd1.ExecuteScalar() '从后台获得顺序号
    cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = '" & pf & "' And 表名 = '" & nm & "'"
    If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
        Exit Do '更新成功则退出循环
    End If
Loop
e.DataRow("编号") = pf & "-" & Format(Key,"0000")
End If

 

 

请问老师，哪里还未设置好呢？？

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


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

回复楼上，把这一段，放在最后

 

'对任务栏表进行操作
Dim dt As DataTable = DataTables("个案任务提醒")
Dim msg As String
If e.DataRow.isnull("裁决")=False Then
    msg  = "已结案"
Else If e.DataRow.isnull("终审")=False Then
    msg = "待裁决"
Else If e.DataRow.isnull("批准") =False Then
    msg  = "待终审"
Else If e.DataRow.Isnull("审核") = False Then
    msg  = "待批准"
Else
    msg  = "待审核"
End If
dt.DeleteFor("文件名称='" & e.DataRow("文件名称") & "'")
Dim ndr As DataRow = dt.AddNew
ndr("编号") = e.DataRow("编号")
ndr("文件名称") = e.DataRow("文件名称")
ndr("状态") = msg
Dim us As String = ""
For Each user As UserInfo In users
    us &= user.Name & ","
Next
ndr("用户") = us.TrimEnd(",")
dt.Save

请问老师，这段代码哪里有问题那？？

 

'''
Static ib As Boolean
Dim f As WinForm.Form = Forms("个案任务提醒")
Dim fw As Integer = 250
Dim fh As Integer = 250
Dim k As  Integer = 1
If k > 0 AndAlso f.Opened = False Then
    f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If

If f.Opened Then
    Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
    If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
        For i As Integer = 1 To h
            f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
        Next
    End If
    Dim tbr As WinForm.TopicBar = f.Controls("TopicBar1")
    Dim tpg_system As WinForm.TopicPage = tbr.Pages("最新个案")
    Dim tpg_new As WinForm.TopicPage = tbr.Pages("新任务")
    Dim tpg_system1 As WinForm.TopicPage = tbr.Pages("最新文件")
    Dim tpg_new1 As WinForm.TopicPage = tbr.Pages("待签署意见")
   
    tpg_system.Links.Clear
    tpg_new.Links.Clear
    tpg_system1.Links.Clear
    tpg_new1.Links.Clear
   
    Dim dt As DataTable = DataTables("个案任务提醒")
    For Each dr As DataRow In dt.sqlSelect("编号 is not null")
        If Cstr(dr("用户")).Contains(user.name) Then
            tpg_system.Links.Add(dr("编号"), dr("文件名称"))
        End If
    Next
    Dim filter As String
    Select Case user.Roles
        Case "个案拆分"
            filter = "状态 = '待审核'"
        Case "行销部主管"
            filter = "状态 = '待批准'"
        Case "行销部经理"
            filter = "状态 = '待终审'"
        Case "Boss"
            filter = "状态 = '待裁决'"
        Case Else
            filter = "1=2"
    End Select
    For Each dr As DataRow In dt.sqlSelect(filter)
        tpg_new.Links.Add(dr("编号"), dr("文件名称"))      
    Next
End If

Dim dt1 As DataTable = DataTables("文件查询提醒")
    For Each dr1 As DataRow In dt1.sqlSelect("编号 is not null")
        If Cstr(dr1("用户")).Contains(user.name) Then
            tpg_system1.Links.Add(dr1("编号"), dr1("文件名称"))
        End If
    Next
    Dim filter1 As String
    Select Case user.Roles
        Case "行销部主管"
            filter = "状态 = '待审核'"
        Case "行销部经理"
            filter = "状态 = '待批准'"
        Case Else
            filter = "1=2"
    End Select
    For Each dr1 As DataRow In dt1.sqlSelect(filter)
        tpg_new1.Links.Add(dr1("编号"), dr1("文件名称"))      
    Next
End If

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

最新个案和新任务，对应“个案申请”和“个案任务提醒”表

最新文件和待签署意见，对应“文件管理”和“文件查询提醒”表

 

上面公用一个窗口，我在调整计划管理时，出现了问题~~

我看了一下，我已经申明了相关字符了~~为什么不行，请老师帮我看看~~
此主题相关图片如下：360截图20140519215241750.jpg

 先试试这样改。请具体说明是什么问题。

 

Static ib As Boolean
Dim f As WinForm.Form = Forms("个案任务提醒")
Dim fw As Integer = 250
Dim fh As Integer = 250
Dim k As  Integer = 1
If k > 0 AndAlso f.Opened = False Then
    f.Open(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight)
End If

If f.Opened Then
    Dim h As Integer = SysInfo.ScreenHeight - SysInfo.WorkingAreaHeight + fh
    If f.BaseForm.Top > SysInfo.WorkingAreaHeight - fh Then
        For i As Integer = 1 To h
            f.setbounds(SysInfo.WorkingAreaWidth-fw,SysInfo.WorkingAreaHeight-i,fw-19,fh)
        Next
    End If
    Dim tbr As WinForm.TopicBar = f.Controls("TopicBar1")
    Dim tpg_system As WinForm.TopicPage = tbr.Pages("最新个案")
    Dim tpg_new As WinForm.TopicPage = tbr.Pages("新任务")
    Dim tpg_system1 As WinForm.TopicPage = tbr.Pages("最新文件")
    Dim tpg_new1 As WinForm.TopicPage = tbr.Pages("待签署意见")
   
    tpg_system.Links.Clear
    tpg_new.Links.Clear
    tpg_system1.Links.Clear
    tpg_new1.Links.Clear
   
    Dim dt As DataTable = DataTables("个案任务提醒")
    For Each dr As DataRow In dt.sqlSelect("编号 is not null")
        If Cstr(dr("用户")).Contains(user.name) Then
            tpg_system.Links.Add(dr("编号"), dr("文件名称"))
        End If
    Next
    Dim filter As String
    Select Case user.Roles
        Case "个案拆分"
            filter = "状态 = '待审核'"
        Case "行销部主管"
            filter = "状态 = '待批准'"
        Case "行销部经理"
            filter = "状态 = '待终审'"
        Case "Boss"
            filter = "状态 = '待裁决'"
        Case Else
            filter = "1=2"
    End Select
    For Each dr As DataRow In dt.sqlSelect(filter)
        tpg_new.Links.Add(dr("编号"), dr("文件名称"))
    Next
   
    Dim dt1 As DataTable = DataTables("文件查询提醒")
    For Each dr1 As DataRow In dt1.sqlSelect("编号 is not null")
        If Cstr(dr1("用户")).Contains(user.name) Then
            tpg_system1.Links.Add(dr1("编号"), dr1("文件名称"))
        End If
    Next
    Dim filter1 As String
    Select Case user.Roles
        Case "行销部主管"
            filter = "状态 = '待审核'"
        Case "行销部经理"
            filter = "状态 = '待批准'"
        Case Else
            filter = "1=2"
    End Select
    For Each dr1 As DataRow In dt1.sqlSelect(filter)
        tpg_new1.Links.Add(dr1("编号"), dr1("文件名称"))
    Next
End If

老师，请看看窗口的代码：

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

 

 

 

现在，不显示相关内容哦~~

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


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

个案申请的，没问题额，就是“文件管理”的有问题~~~
此主题相关图片如下：360截图20140519221522437.jpg

成功了~~谢谢老师，有几个点没设置好~~谢谢老师·~，有点甜老师真好~

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