以文本方式查看主题

-  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=18072)
--  作者：don
--  发布时间：2012/4/1 14:15:00
--  
表名分别改为 :"已完成","疑难件"

Select Case e.DataRow("处理进度")
    Case "已完成","疑难件"
        Dim r As Row = Tables(e.DataRow("处理进度")).AddNew
        For Each dc As DataCol In e.DataTable.DataCols
            r(dc.Name) = e.DataRow(dc.Name)
        Next
        e.DataRow.Delete()
    End  Select
    
--  作者：don
--  发布时间：2012/4/1 16:01:00
--  
呵呵,才18页代码而已,改正很容易,也很必要!我200多页代码也常改正