- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于跨表应用更新代码的问题，求大神指教！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30906)
-- 发布时间：2013/4/6 17:00:00
-- [求助]关于跨表应用更新代码的问题，求大神指教！
Select Case e.DataCol.Name
Case "品名","型号","规格","单价"
Dim Filter As String = "[产品编号] = \'" & e.DataRow("产品编号") & "\'"
DataTables("订单").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select
这里有个问题，就是产品表如果是直接删除表格的行，则订单表先加载的内容不会变，或者如果是先清除的是产品表上的产品编号，订单表上的内容也不会变！
求大神帮忙，如何才能让产品表发生上述2种情况，订单表上的"品名","型号","规格","单价"内容也会随变化和清除，要保留订单表的产品编号。
-- 发布时间：2013/4/6 17:46:00
--
有大神能帮忙吗？
-- 发布时间：2013/4/6 18:13:00
--
这个问题没办法解决吗？
-- 发布时间：2013/4/6 18:20:00
--
产品表BeforeDeleteDataRow事件
Dim Filter As String = "[产品编号] = \'" & e.DataRow("产品编号") & "\'"
Dim ss() As String ={"品名","型号","规格","单价"}
For Each s As String In ss
DataTables("订单").ReplaceFor(s, Nothing, Filter)
Next
为什么要清除产品表上的产品编号，想不明白。
[此贴子已经被作者于2013-4-6 18:21:45编辑过]
-- 发布时间：2013/4/6 20:26:00
--
以下是引用fjlclxj在2013-4-6 18:20:00的发言：
产品表BeforeDeleteDataRow事件
Dim Filter As String = "[产品编号] = \'" & e.DataRow("产品编号") & "\'"
Dim ss() As String ={"品名","型号","规格","单价"}
For Each s As String In ss
DataTables("订单").ReplaceFor(s, Nothing, Filter)
Next
为什么要清除产品表上的产品编号，想不明白。测试没作用，不行啊！
产品下架，没有了呢！打个比方。
[此贴子已经被作者于2013-4-6 18:21:45编辑过]
[此贴子已经被作者于2013-4-6 20:35:59编辑过]
-- 发布时间：2013/4/6 22:44:00
--
测试有用的，最后要有个DataTables("订单").Save
不会发附件
[此贴子已经被作者于2013-4-6 22:47:15编辑过]
-- 发布时间：2013/4/6 23:15:00
--
以下是引用fjlclxj在2013-4-6 22:44:00的发言：
测试有用的，最后要有个DataTables("订单").Save
不会发附件
[此贴子已经被作者于2013-4-6 22:47:15编辑过]
我测试还是什么动静都没！
-- 发布时间：2013/4/7 20:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:更新.table |
-- 发布时间：2013/4/7 20:23:00
--
FJL，你这个解决了删除行的问题，但是还有在不删除行的情况下，清除产品表内容时，由于是先清除的产品编号，订单表的品名","型号","规格","单价"这四项内容仍然不会发生变化
-- 发布时间：2013/4/7 20:42:00
--
见下楼
[此贴子已经被作者于2013-4-7 20:48:53编辑过]