none
vb2008中,能否将剪切版中的数据直接导入到DataTable中去,谢谢! RRS feed

答案

全部回复

  • 哈哈,我自己解决啦
    • 已标记为答案 Weber Li 2009年7月14日 0:40
    2009年7月14日 0:40
  • 怎么解决的阿?

    2009年7月14日 8:51
  •                     Dim pasteText As String = Clipboard.GetText()
                        If String.IsNullOrEmpty(pasteText) Then
                            Exit Sub
                        End If
                        pasteText = pasteText.Replace(vbCrLf, vbLf)
                        pasteText = pasteText.Replace(vbCr, vbLf)
                        pasteText.TrimEnd(New Char() {vbLf})
                        Dim lines As String() = pasteText.Split(vbLf)
                        dim rw as DataRow =DT.NewRow
                        For j As Integer = 0 To lines.Length - 2
                                Dim vals As String() = lines(j).Split(ControlChars.Tab)
                                For i As Integer = 0 To vals.Length - 1
                                    rw(i) = vals(i)
                                Next i
                                DT.Rows.Add(rw)
                        next j
                       大致就是这样!
    2009年7月14日 8:57
  • 你看看上面的代码,我是那样写的
    2009年7月14日 9:16