If e.Row.IsNull("第三列") = False AndAlso e.Col.Name = "第三列"  Then

    Dim sor As Long = 2 \'次级科目编号位数

    Dim ii As Long = 4 \'一级科目编号位数

    Dim s As String = e.Row("第三列") \'输入值

    If s.Length<ii OrElse (s.Length-ii) Mod sor<>0 Then

        e.Row("第三列")=Nothing

    Else

        Dim dr1,dr2 As DataRow

        Dim ss As String =Nothing

        \'----        

        For i As Long =ii To s.Length Step sor

            dr1 = DataTables("表A").Find("第一列 = \'" & s.substring(0,i) & "\'")

            Dim va As String =""

            If dr1 Is Nothing Then

                messagebox.Show("会计科目编号未使用","错误")

                e.Row("第三列")=Nothing

                Exit For

            Else

                If I<s.Length Then va="\\"

                

                ss= ss & dr1("第二列") & va

            End If

        Next

        \'---

        e.Text = ss

    End If