主题：希望在科目代码单元格上显示科目完整名称

If e.Col.Name = "FAcctID" Then

    If e.Row.Isnull("FAcctID") = False Then

        Dim strs1() As String={"4","6","8"}

        Dim i1 As Integer = CStr(e.Row("FAcctID")).Length

        'msgbox(dr("FAcctID").SubString(0,i1))

        Dim ids As String

        For k As Integer = 0 To i1/2-2

            Dim cmd As New SQLCommand

            Dim dt As DataTable

            cmd.C

            cmd.Comma1ndText = "SE1LECT * From {GLACCT} Where [FACCTID] = '" & CStr(e.Row("FAcctID")).SubString(0,strs1(k)) & "'"

            dt = cmd.ExecuteReader

            If dt.DataRows.Count > 0 Then

                ids = ids & "-'" & dt.DataRows(0)("FAcctName") & "'"

            Else

                ids = Nothing

            End If

        Next

        e.Text = ids.Trim("-")

    End If

End If