Foxtable(狐表)用户栏目专家坐堂 → 提取TextBox1里的内容


  共有2597人关注过本帖树形打印复制链接

主题:提取TextBox1里的内容

帅哥哟,离线,有人找我吗?
XINYUEMIN
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1301 威望:0 精华:0 注册:2018/1/26 9:23:00
提取TextBox1里的内容  发帖心情 Post By:2020/1/5 0:37:00 [只看该作者]

通过按钮 导入到明细表对应列里面

 

TextBox1里的内容

 

您好!您预订的车辆安排如下:
用车日期:2020-01-08
车型: 奥迪A6L
车牌号: AB1234
驾驶员: 张三
电话: 12345678900
如您实际用车时间地点有变动,请提前通知师傅

 

 

 


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/5 21:07:00 [只看该作者]

dim s as string = e.form.controls("TextBox1").text
for each s1 as string in s.replace(vbcr,"").split(vblf)
msgbox(s1)
for each s2 as string in s1.split(":")
msgbox(s2)
next
next

 回到顶部
帅哥哟,离线,有人找我吗?
XINYUEMIN
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:146 积分:1301 威望:0 精华:0 注册:2018/1/26 9:23:00
  发帖心情 Post By:2020/1/7 10:25:00 [只看该作者]

怎么导入到明细表对应的列里面

用车日期         车型       车牌         驾驶员       电话

2020-01-08   奥迪A6L  AB1234    张三          12345678900


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 10:34:00 [只看该作者]

dim s as string = e.form.controls("TextBox1").text
for each s1 as string in s.replace(vbcr,"").split(vblf)
dim r as row = tables("A").addnew
dim arr() as string = s1.split(":")
r(arr(0)) = arr(1)
next

 回到顶部