以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除数据或刷新数据时出错问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140466)
--  作者：旭日生
--  发布时间：2019/9/6 8:50:00
--  删除数据或刷新数据时出错问题

请版主大神帮忙看看代码出错地儿在哪儿？


图片点击可在新窗口打开查看此主题相关图片如下：image 1.png
图片点击可在新窗口打开查看


 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.foxdb

[此贴子已经被作者于2019/9/6 9:22:16编辑过]
--  作者：有点蓝
--  发布时间：2019/9/6 8:59:00
--  
    Case "主办单位"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("主办单位") Then
            \'MessageBox.Show( "b")
            dr("主办单位排序码") =  ""
        Else
            
            Dim str As String = e.NewValue
            Dim L As Integer = str.Length
            If  str > "" AndAlso L > 3 Then
                Dim fdr1 As DataRow = e.DataTable.find("主办单位 = \'" & dr("主办单位") & "\'", "_sortkey",0)
                Dim fdr2 As DataRow = e.DataTable.find("主办单位 = \'" & dr("主办单位") & "\'", "_sortkey",1)
                Dim fdr3 As DataRow = e.DataTable.find("主办单位 = \'" & str.SubString(0,L - 3) & "\'", "_sortkey",0)
                \'MessageBox.Show("4")
                If fdr3 IsNot Nothing Then
                    \'msgbox(fdr3("序号") & "a")
                    dr("主办单位排序码") =  fdr3("级别排序码") & fdr3("序号")
                ElseIf fdr1 IsNot Nothing  Then
                    \'MessageBox.Show("3" & "c")
                    dr("主办单位排序码") =  fdr1("级别排序码") & fdr1("序号")
                    
                End If
            End If
        End If
--  作者：旭日生
--  发布时间：2019/9/6 9:26:00
--  

秒回！给赞foxtable！谢谢蓝版。