以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81201)
--  作者：syczmg
--  发布时间：2016/2/21 1:15:00
--  请教!

表内有4列，均为字符型非表达式列：来源类别、凭证编号、安排类别、项目编号

描述：当来源类别和凭证编号不为空，且安排类别等于‘未立项资金’时，项目编号列自动赋值为“未立项-凭证编号列编号”；

                                                当安排类别不等于‘未立项资金’，可自行输入。

新手，勿怪。谢谢！
--  作者：大红袍
--  发布时间：2016/2/21 10:48:00
--  

datacolchanged事件

 

Select Case e.DataCol.name
    Case "来源类别", "凭证编号", "安排类别"
        If e.DataRow.isnull("来源类别") OrElse e.DataRow.isnull("凭证编号") Then
            e.DataRow("项目编号")  = Nothing
        Else
            If e.DataRow("安排类别") = "未立项资金" Then
                e.DataRow("项目编号") = "未立项-" & e.DataRow("凭证编号")
            End If
        End If
End Select