如何在div

Question

我目前正在使用vb.net增强系统。我的问题是，我需要显示一个列名称＆＃39; WONOTE＆＃39; （数据类型TEXT）从SQL Server到html前屏幕中的div。此列的最大字符长度最多为22 000个字符。我在后面的代码中使用sql命令将数据从SQL服务器检索到div。我设法显示数据，但使用此语句1：

最多只能显示110个字符

REPLACE(REPLACE(cast(WONOTE as varchar(110)), CHAR(13), ''), CHAR(10), '')

使用此声明2最多10个字符：

CONVERT(VARCHAR(10), b.WONOTE) as WONOTE

但我需要它才能显示全文。如果我为语句1更改为varchar（max）或大于110，对于语句2更改为10则不显示任何内容。

我希望有人可以帮助我。 提前谢谢。

我如何从SQL服务器检索数据：

Public Sub GETWHATSRUNNING()

    Dim paraWC As SqlParameter
    Dim SQL As String
    Dim myArray, myArray1, myArray2, myArray3,
    myArray4, myArray5, myArray6, myArray7,
    myArray8, myArray9, myArray10 As String

    TempDT.Columns.Add("WO", GetType(String))
    TempDT.Columns.Add("WOQTY", GetType(String))
    TempDT.Columns.Add("PartNum", GetType(String))
    TempDT.Columns.Add("Desc", GetType(String))
    TempDT.Columns.Add("WIPQTY", GetType(String))
    TempDT.Columns.Add("WIPDAYS", GetType(String))
    TempDT.Columns.Add("WOAGING", GetType(String))
    TempDT.Columns.Add("AGINGATWC", GetType(Double))
    TempDT.Columns.Add("COLOR", GetType(String))
    'TempDT.Columns.Add("WO_NOTE", GetType(String))


    WCLimit = 5

    SQL = "select distinct A.WONO, B.BLDQTY , C.PART_NO , C.DESCRIPT, B.Start_Date, REPLACE(REPLACE(cast(WONOTE as varchar(110)), CHAR(13), ''), CHAR(10), '') " & _
          "from Transfer A " & _
          "left join WOENTRY B on A.wono = B.wono " & _
          "left join INVENTOR C on B.UNIQ_KEY = C.UNIQ_KEY " & _
          "where FR_DEPT_ID = @WC and start_date is not null " & _
          "and B.BLDQTY <> B.COMPLETE "

    GetConnection()
    oConnSql = New SqlConnection(connString.ToString)
    oCmdSql = New SqlCommand(SQL, oConnSql)
    paraWC = New SqlParameter("@WC", SqlDbType.VarChar, 5)
    paraWC.Value = lblWC.Text
    oCmdSql.Parameters.Add(paraWC)
    oCmdSql.CommandTimeout = 7200

    Try
        If oConnSql.State = ConnectionState.Closed Then
            oConnSql.Open()
        End If

        ' Adapter and Dataset
        oAdptSql.SelectCommand = oCmdSql
        oAdptSql.Fill(oDS, "dtList")
        oAdptSql.Fill(dt)

        If dt.Rows.Count > 0 Then

            Dim ProgessQty, WIPQty, WOQuantity As String
            Dim AgingWC, WOAging As Double
            'Dim WCAge, WoAge As TimeSpan
            Dim LeadTime As Double
            Dim Holiday As Integer
            Dim counter As Integer = 1
            Dim count As Integer = dt.Rows.Count - 1
            For i = 0 To count - 1


                ProgessQty = GETProgressWOQuantity(Trim(dt.Rows(i)(0).ToString))
                WOQuantity = Trim(dt.Rows(i)(1).ToString)
                WIPQty = CInt(ProgessQty)
                LeadTime = GetLeadTime(Trim(dt.Rows(i)(2).ToString), lblWC.Text)
                Holiday = CheckForHolidays(CDate(dt.Rows(i)(4).ToString), Now())
                WOAging = Format((DateDiff(DateInterval.Minute, CDate(dt.Rows(i)(4).ToString), Now())) / 60 / 24, "0.0") - Holiday
                AgingWC = WOAging - LeadTime
                If AgingWC >= 5 And WIPQty > 0 Then

                    TempDT.Rows.Add(Trim(dt.Rows(i)(0).ToString), WOQuantity, Trim(dt.Rows(i)(2).ToString), Trim(dt.Rows(i)(3).ToString), WIPQty, Trim(dt.Rows(i)(5).ToString), Math.Round(CDbl(WOAging), 2), Math.Round(CDbl(AgingWC), 2), IIf(Math.Round(CDbl(AgingWC), 2) >= WCLimit, "Red", "Black"))
                    '
                    counter += 1
                Else
                End If

            Next

            Dim dataView As New DataView(TempDT)
            dataView.Sort = " AGINGATWC DESC"
            SortDT = dataView.ToTable()

            For j = 0 To SortDT.Rows.Count - 1
                myArray = myArray & "|" & j + 1
                myArray1 = myArray1 & "|" & Trim(SortDT.Rows(j)(0).ToString) 'WO
                myArray2 = myArray2 & "|" & Trim(SortDT.Rows(j)(1).ToString) 'WO QTY
                myArray3 = myArray3 & "|" & Trim(SortDT.Rows(j)(2).ToString) 'Part Number
                myArray4 = myArray4 & "|" & Trim(SortDT.Rows(j)(3).ToString) 'Description
                myArray5 = myArray5 & "|" & Trim(SortDT.Rows(j)(4).ToString) 'WIP QTY
                myArray6 = myArray6 & "|" & Trim(SortDT.Rows(j)(5).ToString) 'WIP DAYS
                myArray7 = myArray7 & "|" & Trim(SortDT.Rows(j)(6).ToString) 'WO Aging
                myArray8 = myArray8 & "|" & Trim(SortDT.Rows(j)(7).ToString) 'Aging at WC
                myArray9 = myArray9 & "|" & Trim(SortDT.Rows(j)(8).ToString) 'Color
                myArray10 = myArray10 & "|" & Trim(SortDT.Rows(j)(5).ToString) 'WONOTE
            Next

            dt.Clear()
            dt.Dispose()
            oCmdSql.Dispose()
            oConnSql.Close()

            ViewState.Clear()
            ViewState("JArray") = myArray
            ViewState("JArray1") = myArray1
            ViewState("JArray2") = myArray2
            ViewState("JArray3") = myArray3
            ViewState("JArray4") = myArray4
            ViewState("JArray5") = myArray5
            'ViewState("JArray6") = myArray6
            ViewState("JArray7") = myArray7
            ViewState("JArray8") = myArray8
            ViewState("JArray9") = myArray9
            ViewState("JArray10") = myArray10


        End If
    Catch ex As Exception
        lblResult.Text = "Exception Message: " + ex.Message
    Finally

    End Try

End Sub

现在我意识到我是否使用varchar(max)在Internet Explorer中运行