主题：从粘贴板粘贴后并且选中当行应该怎么写啊！

If e.Form.Controls("TextBox1").text <> ""

    Dim s As String = e.Form.Controls("TextBox1").text

    s = s.Replace(vbcrlf & " ","").Replace(vbcrlf,";").Replace(Chr(13) & " ","").Replace(Chr(10),"").Replace(Chr(13),";")  '规范条件按格式

    Dim clname As String = "Contact_Name,Address,Zip_Code,Mobile,No,第六列,第七列,第八列,第九列,第十列"

    Dim Value1s(),Value2s() As String

    Value1s = s.split(";")

    Value2s = clname.split(",")

    Dim dr As DataRow = DataTables("客户订单表").AddNew()

    For Index As Integer = 0 To  Math.Min(Value1s.Length,Value2s.Length) - 1

        dr(Value2s(Index)) = Value1s(Index).Replace(Value2s(Index).Replace("_"," ") & ":","").Trim(" ")

    Next

End If

msgbox("添加成功")

可不可以不是从TextBox1粘贴 直接从粘贴板上面粘贴啊！

现在虽然能添加了！但是不能选择添加的列！能不能麻烦大家帮我改一下！感谢 感谢！

复制到TextBox1

感谢 感谢 

后来不得行就想把TextBox的粘贴到各列

想设计一个按钮是先复制到TextBox 在粘贴到各个列

感谢 感谢 

可不可以先设计个按钮粘贴到TexrBox里面啊

然后在粘贴到各个列 ？

我还是手动复制粘贴吧

麻烦你们太多了！