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
加好友 
发短信
Post By：2019/9/6 8:59:00 [显示全部帖子]
