从粘贴板粘贴后并且选中当行应该怎么写啊！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 从粘贴板粘贴后并且选中当行应该怎么写啊！

共有2955人关注过本帖树形打印复制链接主题：从粘贴板粘贴后并且选中当行应该怎么写啊！

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

从粘贴板粘贴后并且选中当行应该怎么写啊！ 发帖心情

Post By：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(" ")

End If

msgbox("添加成功")

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

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

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/4 16:39:00 [只看该作者]

当前行不就是

currenttable.current 吗?

[此贴子已经被作者于2014-6-4 16:39:16编辑过]

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/4 17:17:00 [只看该作者]

Dim s As String = ClipBoard.GetText()

CurrentTable.Current("TextBox1") = s

是不是格式不对还是要加什么代码啊！

复制到TextBox1

感谢感谢

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/6/4 17:18:00 [只看该作者]

回复4楼，你想做什么？你原本想做什么

yangwenghd

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/6/4 17:30:00 [只看该作者]

本来是想把粘贴板的复制到各个列

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

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

感谢感谢

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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("添加成功")