- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]写入表格不全 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126712)
-- 发布时间：2018/10/26 22:59:00
-- [求助]写入表格不全
将文本框内容中的每一行，顿号“、”前的写入[首行]，顿号“、”后的写入[末行]。
为什么没写全？
见图中的写入结果、文本框的文本、文本框中的字符编码。
代码如下：
Dim str As String = e.Form.Controls("TextBox4").text
For Each s As String In str.split(vbcrlf)
msgbox（s）
Dim nr As Row = Tables("席签打印_table1").addnew
nr("首行") = s.Split("、")(0)
nr("未行") = s.Split("、")(1)
Next
此主题相关图片如下：image 2.jpg
-- 发布时间：2018/10/26 23:04:00
--
Dim str As String = e.Form.Controls("TextBox4").text
For Each s As String In str.replace(vbcr,"").split(vblf)
msgbox(s)
Dim nr As Row = Tables("席签打印_table1").addnew
Dim arr() As String = s.Split("、")
nr("首行") = arr(0)
nr("未行") = arr(1)
Next