主题：[求助]关联表按增加行后程序自动退出

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

DataColChanged事件

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