关联表按增加行后程序自动退出
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
,问题出在最后一句