我在表属性 ChangeEdit事件中编写了:
Dim Val As Integer = e.Table.Current("剩余课时")If Val = 0 Then StatusBar.Message1 = "已无剩余课时, 可以下山了!"ElseIf Val = 1 Then StatusBar.Message1 = "仅剩最后一课时,请与学员家长联系续费."ElseIf Val < 3 Then StatusBar.Message1 = "剩余" & Val & "课时" & ", 已扣除本次课时."End If
为什么木有效果呢