主题：[求助]换行符如何清除。

 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

        cmd.CommandText = "sel  ect * from {物料表} where [_Identify] is null"

        Dim SVdt As DataTable = cmd.ExecuteReader

        Dim lm As String,sz As String,cmdstr As String

        If r.IsNull("Itid") Then

            cmd.CommandText = " sel  ect max(Itid) from {物料表} "

            Dim zs As Integer = cmd.ExecuteScalar

            r("Itid") = zs + 1

            r("Fid") = 1

            For Each dc As DataCol In svdt.DataCols

                If lm > "" Then lm &= ","

                lm &= "[" & dc.name & "]"

                If sz > "" Then sz &= ","

                sz &= "'" & r(dc.Name) & "'"

            Next

            If cmdstr > "" Then cmdstr &= ";"

            cmdstr &=  "In sert In to {物料表} (" & lm &") Values (" & sz & ")"

            lm = Nothing

            sz = Nothing

        Else

            r("Fid") = 1

            For Each dc As DataCol In svdt.DataCols

                If sz > "" Then sz &= ","

                sz &= dc.name & " ='" & r(dc.Name) & "'"

            Next

            If cmdstr > "" Then cmdstr &= ";"

            cmdstr &= " UPD ATE {物料表} SET " & sz & "WHERE itid =" & r("itid")

            sz = Nothing

        End If

        If cmdstr > "" Then

            cmd.Comm andText = cmdstr

            cmd.ExecuteNonQuery()

            MessageBox.Show("物料保存成功!", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)

            e.Form.Close

        End If