If e.Sender.Text = "显示核销" Then
e.Sender.Text = "隐藏核销"
e.Sender.BackColor = Color.aquamarine
CurrentTable.DataTable.LoadFilter = ""
CurrentTable.DataTable.Load()
ElseIf e.Sender.Text = "隐藏核销" Then
e.Sender.Text = "显示核销"
e.Sender.BackColor = Color.indianred '背景色
For i As Integer = Tables("cw_lsbxql").Rows.Count - 1 To 0 Step - 1
Tables("cw_lsbxql").Rows(i).DataRow.Remove()
CurrentTable.DataTable.LoadFilter = "核销 = 1"
CurrentTable.DataTable.Load()
Next
End If
代码无效
.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2017.8.19.1
错误所在事件：窗口,流水表,显示,Click
详细错误信息：
未将对象引用设置到对象的实例。
[此贴子已经被作者于2017/9/28 12:02:30编辑过]
加好友 
发短信
Post By：2017/9/28 11:24:00 [显示全部帖子]
