- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 不显示字符 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126493)
-- 发布时间：2018/10/22 18:52:00
-- 不显示字符
老师你好，我问一下我录入后，为什么客户名只显示第一条的，其他的双击可以显示。
此主题相关图片如下：捕获.png
-- 发布时间：2018/10/22 19:06:00
--
Dim str As String = TXT1.Text
For Each s As String In str.split(chr(13))
s = s.Replace("?","")
s= StrToNarrow(s) \'全角字符句号转换成了?
Dim ary = s.split("?")
Dim A As Integer = Tables("今日订单").Position
Dim R1 As Row = Tables("今日订单").Rows(A)
R1("代理名") = FXS.Value
R1("客户名")=ARY(0)
R1("电话")=ARY(1)
R1("地址")=ARY(2)
R1("产品名")=ARY(3)
R1("数量")=ARY(4)
If ary.length = 6 Then
r1("批次")=ary(5)
End If
Dim sj As Date =Date.now
r1("录入时间")=sj
Tables("今日订单").addnew()
next
[此贴子已经被作者于2018/10/22 19:51:18编辑过]
-- 发布时间：2018/10/22 20:14:00
--
Dim str As String = TXT1.Text
str = str.Replace(vbcr,"")
For Each s As String In str.split(vblf)
……
-- 发布时间：2018/10/22 20:51:00
--
蓝老师，谢谢指点！问题解决
只是我还不知这是什么原理，能指导下吗
[此贴子已经被作者于2018/10/22 20:51:11编辑过]
-- 发布时间：2018/10/22 21:39:00
--
回车包含chr11和chr13二个字符，如果只是根据chr13分割，保留的chr11会导致单元格多出一个空行，原来的用法把行拉高就看到了
-- 发布时间：2018/10/22 21:54:00
--
ok ！ 感谢 专业的就是专业的