以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  显示与隐藏核销  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107450)
--  作者：zoyong
--  发布时间：2017/9/28 11:24:00
--  显示与隐藏核销
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编辑过]
--  作者：有点甜
--  发布时间：2017/9/28 12:39:00
--  

 加入msgbox定位错误位置

 

http://www.foxtable.com/webhelp/scr/1485.htm

 

 做个具体例子发上来测试。