如何从字符型列数据中自动读出其它列数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

从类似案号“(2016)苏1311民初字第002号”，根据“2016”自动读出“年度”数据，根据“民初”自动填写类别代码，自动填写流水号。

1、年度从案号中读出

2、民监类别代码为ＡＭＪ，民申代码为ＡＭＳ，民初类别代码为AMC

3、流水号为“年份后两位＋当天月份

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.table

＋当天日期＋4位顺序号”，如1708080001。

[此贴子已经被作者于2017/8/9 7:23:11编辑过]

附件没上传上去？

DataColChanged

Select Case e.DataCol.name
    Case "案号"
        Dim str As String = e.DataRow("案号")
        Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=\()[0-9]+?(?=\))")
        If mc.count>0 Then
            e.DataRow("年度列") = mc(0).value
        Else
            e.DataRow("年度列") = Nothing
        End If
        If str.Contains("民初") Then
            e.DataRow("类别") = "AMC"
        ElseIf str.Contains("民监")Then
            e.DataRow("类别") = "AMJ"
        ElseIf str.Contains("民申") Then
            e.DataRow("类别") = "AMS"
        Else
            e.DataRow("类别") = Nothing
        End If
    Case "年度列"
        If e.DataRow("年度列") > "" AndAlso e.DataRow("年度列").length >= 4 Then
            Dim bh As String = e.DataRow("年度列").Substring(2) & Format(Date.Today, "MMdd")
            If e.DataRow("流水号").contains(bh) = False Then
                Dim max As String = e.DataTable.Compute("max(流水号)", "流水号 like '" & bh & "%'")
                Dim i As Integer = 1
                If max > "" Then
                    i = max.SubString(bh.Length)+11
                End If
                e.DataRow("流水号") = bh & format(i, "0000")
            End If
        End If
End Select

非常感谢版主！回答好快，深受启发。但还存在几个小问题：

１、应该还有一栏，“编号”。没有自动读出和填写，见附件表test.table.

２、“流水号”不能重复，当天流程号应自然排序。

３、其它语句都能读懂，这句读不懂，也没找到相关资料：

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=\()[0-9]+?(?=\))")

真是高手！你们的服务速度和服务质量真是令人赞叹。非常感谢！

主题：如何从字符型列数据中自动读出其它列数据？