以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  提取TextBox1里的内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144988)
--  作者：XINYUEMIN
--  发布时间：2020/1/5 0:37:00
--  提取TextBox1里的内容

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

 

TextBox1里的内容

 

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

 

 

 
--  作者：有点蓝
--  发布时间：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
--  发布时间：2020/1/7 10:25:00
--  

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

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

2020-01-08   奥迪A6L  AB1234    张三          12345678900
--  作者：有点蓝
--  发布时间：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