专家坐堂-符号的设置，日期的截取Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  符号的设置，日期的截取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90746)

--  作者：2
--  发布时间：2016/9/21 0:52:00
--  符号的设置，日期的截取
1、我有一个姓名列，列中有多个人名，输入时只能用“，”号分隔，怎么写代码控制？

2、非自然月，我的统计月为日期型，要控制为“yyyy-MM”格式下面的代码怎么改？

Select Case e.DataCol.name
    Case "日期"
        If e.NewValue Is Nothing Then
            e.DataRow("统计月") = Nothing
        Else
            Dim dt As Date = e.NewValue
            If dt.Day > 25 Then \'如果为25日以后的日期
                dt = new Date(dt.year,dt.month,1) \'改为下个月的第一天
                dt= dt.AddMonths(1)
            End If
            e.DataRow("统计月") =Format(dt,"yyyy-MM")\'这个格式改了后还是"yyyy-MM-01",列的日期格式没有yyyy-MM，只能改成字符型的吗？
        End If
End Select

[此贴子已经被作者于2016/9/21 0:57:05编辑过]

--  作者：有点蓝
--  发布时间：2016/9/21 8:44:00
--
1、正则验证
Dim s As String="张三,李四;王五"
Dim p As String = "(^[\\u4e00-\\u9fa5,]+$)" \'如果包含英文名用"(^[a-zA-Z\\u4e00-\\u9fa5,]+$)"
Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If not rgx.isMatch(s) Then
msgbox("只能输入中文名字和用逗号进行分割")
End If

2、只能用字符

--  作者：blackzhu
--  发布时间：2016/9/21 8:46:00
--
唉! 正则还是有点看不太明白.