以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求帮忙，老师看看这句代码出错在什么地方  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62160)
--  作者：as2517
--  发布时间：2014/12/26 14:28:00
--  [求助]求帮忙，老师看看这句代码出错在什么地方
Select Case e.DataCol.name
    Case "客户姓名","手机"    
    Dim dr As DataRow 
    dr = DataTables("表B").AddNew()
    dr("客户姓名") = e.DataRow("客户姓名")
    dr("手机") = e.DataRow("手机")
End Select

想表达的意思是，表A里的   客户姓名列及手机列    增加内容时  表B 里的   客户姓名列及手机列  自动添加，

用了这段代码后，在表A新增内容后，表B出现了2行。一行 客户姓名列有内容但是手机列没有，另外一行2列都有内容。

我想让它只显示2列都有内容的行。谢谢
--  作者：有点甜
--  发布时间：2014/12/26 14:30:00
--  
Select Case e.DataCol.name
    Case "客户姓名","手机"
        If e.DataRow.IsNull("客户姓名") = False AndAlso e.DataRow.IsNull("手机") = False Then
            Dim dr As DataRow
            dr = DataTables("表B").AddNew()
            dr("客户姓名") = e.DataRow("客户姓名")
            dr("手机") = e.DataRow("手机")
        End If
End Select
--  作者：as2517
--  发布时间：2014/12/26 14:51:00
--  
谢谢，甜老师。还有一个问题，假如我要删除表A的行那么表B对应的行也跟着删除的话，代码怎么写
--  作者：有点甜
--  发布时间：2014/12/26 15:05:00
--  

 参考

 

http://www.foxtable.com/help/topics/2490.htm

 
--  作者：as2517
--  发布时间：2014/12/26 15:09:00
--  
谢谢