以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11147)
--  作者：云舒
--  发布时间：2011/7/10 9:43:00
--  [求助]代码！！

请问，当我的“房源表”里的状态栏变成“已签约”时，这一栏的信息能自动隐藏或是删除。

且该栏内所含的“栋号”、“房号”、“定购姓名”、“面积”能自动录入到“客户信息表”里，

该如何做呢？

谢谢指教！！

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:样本.table
--  作者：狐狸爸爸
--  发布时间：2011/7/11 7:24:00
--  

房源表的DataColChanged事件：

 

If e.DataCol.name = "状态" AndAlso e.DataRow("状态") = "已签约" Then
    Dim dr1 As DataRow = e.DataRow
    Dim dr2 As DataRow = DataTables("客户信息").AddNew()
    dr2("栋号") = dr1("栋号")
    dr2("房号") = dr1("房号")
    dr2("客户姓名") = dr1("定购姓名")
    dr2("面积") = dr1("面积")
    e.DataRow.Remove()
End If
--  作者：mr725
--  发布时间：2011/7/11 23:43:00
--  
.............................
    e.DataRow.Save()              \'要先保存一下，要不重新加载时又还原成之前的状态了
    e.DataRow.Remove()