主题：[求助]列表项目及数据字典的BUG?

if e.Datacol.name = "疾病" Then
     Dim Da  As DataTable = DataTables("疾病")
     Dim dr As DataRow
     Dim T1,T2 As String
     T1=e.DataRow("疾病")
     T2="[输入码] = '" & T1 & "'"

     IF  T1.indexof("→") >-1 Then
           e.DataRow("疾病") = T1.split("→")(1)

      ElseIF Asc(T1) > 64 And Asc(T1) < 91 and  Asc(Right(T1,2)) > 64 And Asc(Right(T1,2)) < 91 Then
           dr = Da.Find(T2)
           if dr IsNot Nothing Then
               e.DataRow("疾病") = dr("疾病名称")
           Else                   
                 MessageBox.Show("『输入码』输入有誤！請檢查.", "提示")
           End If

       ElseIF  Da.Find("[疾病名称] = '" & T1 & "'") is Nothing Then
             MessageBox.Show("『疾病名称』输入有誤！請檢查.", "提示")
          
       End If
End If