- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列拆分怎么写代码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150165)
-- 发布时间：2020/5/22 14:41:00
-- 列拆分怎么写代码？
我是想拆分这一列的前5位数，excel里面当然很好拆分，但是到狐表里面就很难操作了，datacal不知道怎么操作了！！！
此主题相关图片如下：微信截图_20200522143605.png
[此贴子已经被作者于2020/5/22 14:41:07编辑过]
-- 发布时间：2020/5/22 15:33:00
--
参考：http://www.foxtable.com/webhelp/topics/0240.htm
Dim s1 As String ="00002MM12"
Dim s2 As String
s2 = s1.SubString(0,5)
msgbox("s2 = " & s2)
Dim s2 As String
s2 = s1.SubString(0,5)
msgbox("s2 = " & s2)
-- 发布时间：2020/5/22 17:16:00
-- 回复：（有点蓝）参考：http://www.foxtable.com/webh...
你这个是拆分一个字符串吧？我是想拆分整个这个“样本编号”这一列，取这一列的前5位数，又可参考的吗？
-- 发布时间：2020/5/22 17:19:00
--
DataColChanged事件
If e.DataCol.Name = "样本编号" Then
If e.NewValue > "" andalso e.NewValue.length > 5 Then
If e.NewValue > "" andalso e.NewValue.length > 5 Then
e.datarow("xxx列") = e.NewValue.SubString(0,5)
End If
End If
End If
End If
-- 发布时间：2020/5/22 17:32:00
-- 回复：（有点蓝）DataColChanged事件If e.DataCo...
非常感谢。参考文件里面没有相关案例的吧？
-- 发布时间：2020/5/22 17:34:00
--
当然不可能有完全符合每个用户的例子，差不多的就有
http://www.foxtable.com/webhelp/topics/0625.htm
http://www.foxtable.com/webhelp/topics/1452.htm
-- 发布时间：2020/5/26 12:54:00
-- 回复：（有点蓝）当然不可能有完全符合每个用户的例子...
对已经产生的数据进行分类，这样写队不对？
但是重置列不起作用呢》？
此主题相关图片如下：微信截图_20200526125255.png
此主题相关图片如下：微信截图_20200526125255.png-- 发布时间：2020/5/26 13:44:00
--
看不懂代码的不要乱改，这个用法和oldvalue没有半毛钱的关系
If e.DataCol.Name = "样本编号" Then
If e.NewValue > "" andalso e.NewValue.length > 5 Then
If e.NewValue > "" andalso e.NewValue.length > 5 Then
e.datarow("原编号") = e.NewValue.SubString(0,5)
End If
End If
End If
-- 发布时间：2020/5/26 13:45:00
--
还是先学一下基础吧：http://www.foxtable.com/webhelp/topics/1592.htm
-- 发布时间：2020/5/26 14:14:00
-- 回复：（有点蓝）还是先学一下基础吧：http://www.fox...
欧克。ok
我是选中了“原编号”这一列进行重置列，无效，选中“样本编号”这一列进行重置列，就能起作用了。