专家坐堂-[求助]甜版，帮忙看一下如下代码？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]甜版，帮忙看一下如下代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66069)

--  作者：bigeng
--  发布时间：2015/3/29 10:40:00
--  [求助]甜版，帮忙看一下如下代码？

（1）datacolchanged下，代码如下：
If e.DataCol.Name = "凭证流水号" Then
Dim s As String = e.DataRow("凭证流水号")
If s.length > 9 Then
e.DataRow("凭证期间") = s.SubString(3,6)
Else
e.DataRow("凭证期间") = Nothing
End If
End If

If e.DataCol.Name = "凭证流水号" Then
Dim s As String = e.DataRow("凭证流水号")
If s.length > 13 Then
e.DataRow("凭证号") = s.SubString(9,4)
Else
e.DataRow("凭证号") = Nothing
End If
End If

结果如下：凭证期间可以按照凭证流水号取数，凭证号列为空。（凭证流水号如：PZ-201501010001，期望结果凭证期间：201501 凭证号：0001）

--  作者：有点甜
--  发布时间：2015/3/29 10:56:00
--
If e.DataCol.Name = "凭证流水号" Then
    Dim s As String = e.DataRow("凭证流水号")
    If s.length >= 9 Then
        e.DataRow("凭证期间") = s.SubString(3,6)
    Else
        e.DataRow("凭证期间") = Nothing
    End If
   If s.length > 11 Then
        e.DataRow("凭证号") = s.SubString(11)
    Else
        e.DataRow("凭证号") = Nothing
    End If
End If