以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 删除行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135555)

--  作者:2474842866
--  发布时间:2019/5/29 12:28:00
--  [求助] 删除行
这一行报错,请问出在什么地方?我是在窗口fill方法形成表的doubleclick事件添加的,目的是,双击表,弹出对话框,若确定删除,则删除内部表中商家编码同当前行一致的行
Dim r As Row = Tables("采购系统_tb.1.3.4").Current             \'定义变量储存表行
Dim Result As DialogResult                                                ‘定义对话框
Result = messagebox.Show("确定要删除记录吗?","确定",MessageBoxbuttons.yesno)
If Result = DialogResult.Yes  Then                              \'若单击确定
    DataTables("预警处理表").RemoveFor("商家编码 = \' r("商家编码") \' ")    \'删除预警表中商家编码等于当前行商家编码的行
Else
     e.Form.Close()
End If

--  作者:2474842866
--  发布时间:2019/5/29 12:44:00
--  
感谢,我已经解决了,定义字符串表示编码
--  作者:有点甜
--  发布时间:2019/5/29 13:27:00
--  

 

DataTables("预警处理表").RemoveFor("商家编码 = \'" & r("商家编码") & "\' ")    \'删除预警表中商家编码等于当前行商家编码的行