以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  删除按钮的删除功能怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90747)
--  作者：cbt
--  发布时间：2016/9/21 8:56:00
--  
 Syscmd.Row.Delete()
--  作者：狐狸爸爸
--  发布时间：2016/9/21 10:30:00
--  

Dim rq As String
rq = Format(Tables("充值查询_table1").Current("日期"),"yyyy-MM-dd HH:mm:ss.fff")
Dim kh As String
kh=Tables("充值查询_table1").Current("卡号")
Dim sc As DataRow=DataTables("会员充次").find("会员号=\'" & kh & "\' And 日期= #" & rq & "#")
If sc IsNot Nothing
    sc.Delete
    msgbox("删除成功!")
    DataTables("会员充次").save
    Tables("充值查询_table1").Refresh
Else
    msgbox("未找到!")
End If
--  作者：狐狸爸爸
--  发布时间：2016/9/21 10:31:00
--  

建议：

 

1、SQLTable的Se lect语句改为：
Sele ct {会员充次}.[_Identify],{会员充次}.日期,卡号,姓名,课程编号,课程名称,次数,次数*单价*折扣 as 金额 From {会员信息} Inner join {会员充次} on  {会员信息}.卡号={会员充次}.会员号

 

2、删除按钮的代码改为：

Dim sc As DataRow = DataTables("会员充次").Find("[_Identify] = " & Tables("充值查询_Table1").Current("_Identify"))
If sc IsNot Nothing
    sc.Delete
    msgbox("删除成功!")
    DataTables("会员充次").save
    Tables("充值查询_table1").Refresh
Else
    msgbox("未找到!")
End If
--  作者：有点蓝
--  发布时间：2016/9/21 11:42:00
--  
sql不能这样用，用代码加载，afterload事件

Dim t As WinForm.Table = e.Form.Controls("Table1")
t.Table.DataTable.DataCols("日期").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
t.Table.DataTable.LoadFilter = "日期 >= #" & Date.Today.AddMonths(-1) & "#"
t.Table.DataTable.load
--  作者：狐狸爸爸
--  发布时间：2016/9/21 11:47:00
--  
记得修改一下Select语句，避免数据被加载两次：
 
原来的语句  Where {会员充次}.[_Identify] Is null
--  作者：狐狸爸爸
--  发布时间：2016/9/21 14:09:00
--  
Dim sc As DataRow = DataTables("会员充次").Find("[_Identify] = " & Tables("充值查询_Table1").Current("_Identify"))
If sc IsNot Nothing
    sc.Delete
    Tables("充值查询_Table1").Current.Delete()
    msgbox("删除成功!")
    DataTables("会员充次").save
Else
    msgbox("未找到!")
End If