以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉窗口的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94730)

--  作者:lilywang
--  发布时间:2016/12/30 16:54:00
--  下拉窗口的问题

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20161230164934.png
图片点击可在新窗口打开查看

图为B表 下拉窗口显示的A表的

在A表中把test合同号删除了 但是B表中合同号这一列还是会显示test 有没有什么办法可以在A表删除的同时 B表的这列也会清空数据?
[此贴子已经被作者于2016/12/30 16:57:00编辑过]

--  作者:有点色
--  发布时间:2016/12/30 17:00:00
--  

datacolchanged事件

 

If e.DataCol.Name = "合同号" Then
    Dim dr As DataRow
    dr = DataTables("表b").Find("[销售合同] = \'" & e.oldvalue & "\'")
    If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
        dr("销售合同") = e.newvalue
    End If
End If

 

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

 

[此贴子已经被作者于2016/12/30 17:42:32编辑过]

--  作者:lilywang
--  发布时间:2016/12/30 17:33:00
--  
老师 如果用例子的方法

Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
If
 dr IsNot Nothing Then
    dr.
Delete()

End
 If

那B表的整行记录都删了 还是不清楚怎么改 麻烦老师指教

--  作者:有点色
--  发布时间:2016/12/30 17:43:00
--  

直接写即可

 

DataTables("表b").ReplaceFor("销售合同号", nothing, "[销售合同号] = \'" & e.DataRow("合同号") & "\'")

[此贴子已经被作者于2016/12/30 17:43:47编辑过]

--  作者:lilywang
--  发布时间:2016/12/30 18:00:00
--  
谢谢老师