以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从粘贴板粘贴后并且选中当行应该怎么写啊！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51862)
--  作者：yangwenghd
--  发布时间：2014/6/4 16:36:00
--  从粘贴板粘贴后并且选中当行应该怎么写啊！
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粘贴 直接从粘贴板上面粘贴啊！
现在虽然能添加了！但是不能选择添加的列！能不能麻烦大家帮我改一下！感谢 感谢！
--  作者：Bin
--  发布时间：2014/6/4 16:39:00
--  
当前行不就是

currenttable.current 吗?
[此贴子已经被作者于2014-6-4 16:39:16编辑过]
--  作者：有点甜
--  发布时间：2014/6/4 16:40:00
--  

 

 不能，只能在某个地方粘贴。选中添加的行

 

 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 Row = Tables("客户订单表").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("添加成功")
--  作者：yangwenghd
--  发布时间：2014/6/4 17:17:00
--  
Dim s As String = ClipBoard.GetText()
CurrentTable.Current("TextBox1") = s 
是不是格式不对还是要加什么代码啊！
复制到TextBox1
感谢 感谢 
--  作者：有点甜
--  发布时间：2014/6/4 17:18:00
--  
 回复4楼，你想做什么？你原本想做什么
--  作者：yangwenghd
--  发布时间：2014/6/4 17:30:00
--  
本来是想把粘贴板的复制到各个列
后来不得行就想把TextBox的粘贴到各列
想设计一个按钮是先复制到TextBox 在粘贴到各个列
感谢 感谢 
--  作者：有点甜
--  发布时间：2014/6/4 17:39:00
--  

 

按钮代码


    Dim s As String = ClipBoard.GetText()
    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 Row = Tables("客户订单表").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

msgbox("添加成功")
--  作者：yangwenghd
--  发布时间：2014/6/4 21:40:00
--  
这样的话粘贴板上面的字符不知道为什么就不能对应粘贴到各个列了 
可不可以先设计个按钮粘贴到TexrBox里面啊
然后在粘贴到各个列 ？
--  作者：有点甜
--  发布时间：2014/6/4 21:41:00
--  

e.Form.Controls("TextBox1").text = ClipBoard.GetText()

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 Row = Tables("客户订单表").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("添加成功")

 
--  作者：yangwenghd
--  发布时间：2014/6/4 22:00:00
--  
还是不得行 粘贴到TextBox的时候 格式变了
我还是手动复制粘贴吧
麻烦你们太多了！
还有几个大问题，等搞定了好好补补基础