以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关联表按增加行后程序自动退出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86878)
--  作者：建筑人生
--  发布时间：2016/6/28 10:59:00
--  [求助]关联表按增加行后程序自动退出

关联表按增加行后程序自动退出

 

DataColChanged事件

 

Dim dr As DataRow=e.DataRow


Select Case e.DataCol.Name
    Case "数量","单价"
        dr("金额")=CInt(dr("数量")*dr("单价") *100)/100
    Case "收支类别"
        If dr("收支类别")="收入" Then
            dr("排序")=1
        End If
        If dr("收支类别")="支出" Then
            dr("排序")=2
        End If
        If dr("收支类别")="投资有关" Then
            dr("排序")=0
        End If
    Case "金额"
        e.Cancel = True

       
End Select

dr("修改时间")=Date.Now

，问题出在最后一句
--  作者：大红袍
--  发布时间：2016/6/28 11:13:00
--  
If e.DataCol.name <> "修改时间" then dr("修改时间")=Date.Now
--  作者：建筑人生
--  发布时间：2016/6/28 11:17:00
--  

谢谢