主题：[求助]正则的编号问题

 老师，
  单机版的正则 获取都是通过DataColChanging DataColChanged 等表事件中完成的，现在要做qqclient 如何操作了呢？没有思路


单机版的正则，代码举例如下：

Dim e As object=args(0)
'判断是否符合录入规则开始
'Functions.Execute("rederegular",e)
'判断是否符合录入规则结束

'判断编码规则开始
Dim name As String
Dim dt1 As DataTable
cmd99.CommandText = "Select * F rom {Z001分类编码方案} where [规则列]='"& e.DataCol.Name &"' and  [基础档案名称]='"& e.DataTable.name &"'"
dt1 = cmd99.ExecuteReader()

If dt1.DataRows.Count>0 Then
    Dim dr As DataRow=dt1.DataRows(0)
    '更改编码规则的重新定义开始
   
    If e.DataCol.Name = dr("规则列") AndAlso e.NewValue = Nothing Then
        Return Nothing
    Else
        Dim sum As Integer
        For i As Integer = 0 To dr("规则长度").Length - 1
            sum += val(dr("规则长度")(i))
            If e.NewValue.length = sum Then
                e.DataRow("编码级次") = dr("编码级次")(i)
                Exit For
            End If
        Next
    End If
   
    '更改编码规则的重新定义结束
    '判断级次开始
    Functions.Execute("selectF",e)
    '判断级次结束
End If
'判断编码规则结束