以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  各位高手,我想单位序号=调标时间年+编号,怎么写代码啊?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101281)

--  作者:xhydxs
--  发布时间:2017/5/27 16:07:00
--  各位高手,我想单位序号=调标时间年+编号,怎么写代码啊?

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170527160555.png
图片点击可在新窗口打开查看

各位高手,我想单位序号=调标时间年+编号,怎么写代码啊?


--  作者:一滴水
--  发布时间:2017/5/27 17:00:00
--  

我也在学习之中。

 

不知道行不行? 请在表属性- 事件 -datacolchanged里试试

 

 

If e.DataCol.Name = "编号" Then
    If e.DataRow.IsNull("编号") Then
        e.DataRow("单位序号") = Nothing
    Else
        Dim bh As String
        bh=e.DataRow("调标时间").year  
        Dim bh1 As String
        bh1=e.DataRow("编号")
       
        e.DataRow("单位序号")= bh & bh1
    End If
End If


--  作者:有点蓝
--  发布时间:2017/5/27 17:48:00
--  
你测试有什么问题吗
--  作者:有点蓝
--  发布时间:2017/5/27 17:49:00
--  
If e.DataCol.Name = "编号" OrElse e.DataCol.Name = "调标时间" Then
    If e.DataRow.IsNull("编号") OrElse e.DataRow.IsNull("调标时间") Then
        e.DataRow("单位序号") = Nothing
    Else
        Dim bh As String
        bh=e.DataRow("调标时间").year  
        Dim bh1 As String
        bh1=e.DataRow("编号")
        
        e.DataRow("单位序号")= bh & bh1
    End If
End If