可以分解列到其他吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可以分解列到其他吗？

共有3309人关注过本帖树形打印复制链接主题：可以分解列到其他吗？

yangwenghd

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

加好友

发短信

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

Post By：2014/6/6 15:48:00 [只看该作者]

粘贴到记事本的时候就是这样的一行

但是从记事本粘贴到网上又是下面的格式

下载信息 [文件大小：下载次数： ]
点击浏览该文件:粘贴到记事本.txt

Contact Name: fouad

Address: blomBank kaslik - kaslik main street

jounieh, jounieh, Lebanon

Zip Code: 0000

Mobile: 9619642559

Tel: 961-3-792559

No: 62453832832115

Contact Name: Richard Allingham

Address: Rekemerstraat 1

Rekem/Lanaken, Limburg, Belgium

Zip Code: 3620

Mobile: 0032494618905

No: 62340065382854

Bin

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

加好友

发短信

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

Post By：2014/6/6 15:49:00 [只看该作者]

你管它在记事本是什么格式干嘛?

yangwenghd

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

加好友

发短信

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

Post By：2014/6/6 15:58:00 [只看该作者]

现在我从网站的按钮点击复制后再点击你帮我设计的按钮只能粘贴两行可能是格式的原因

如果在网站上复制下来先粘贴到备注列再从备注列复制点击粘贴按钮才能实现效果

如果直接点击网站的复制按钮再点击你帮忙设计的粘贴按钮就只能粘贴到两列

Bin

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

加好友

发短信

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

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

先黏贴到备注列,再把代码放到备注列datacolchanged事件,直接取备注列的值来处理

yangwenghd

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

加好友

发短信

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

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

如果能在记事本复印然后点击兄弟设计的按钮能个成功的话点击网站的复制按钮在点击兄弟设计的粘贴就应该没问题

辛苦兄弟了

yangwenghd

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

加好友

发短信

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

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

好

有点甜

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

加好友

发短信

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

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

代码

Dim s As String = ClipBoard.GetText()
s = s.Replace(chr(10), "").Replace("Address", chr(13) & "Address").Replace("Zip Code", chr(13) & "Zip Code").Replace("Mobile", chr(13) & "Mobile").Replace("Tel", chr(13) & "Tel").Replace("No", chr(13) & "No")
Dim nr As Row = Tables("表A").AddNew
nr("订单详解") = s
For Each str As String In s.Split(Chr(13))
    Dim ss As String() = str.Split(":")
    If ss.length > 1 Then
        Dim cs As String = ss(0)
        Select Case cs.trim()
            Case "Contact Name"
                nr("姓名")=ss(1)
            Case "Address"
                nr("地址")=ss(1)
            Case "Zip Code"
                nr("邮编")=ss(1)
            Case "Mobile"
                nr("移动电话")=ss(1)
            Case "Tel"
                nr("固定电话")=ss(1)
            Case "No"
                nr("订单编号")=ss(1)
        End Select
    Else
       nr("地址") = nr("地址") & ss(0)
    End If
Next