以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73534)
--  作者：hbhb
--  发布时间：2015/8/20 20:04:00
--  请教代码
袍大师好！请问实例中如何实现
把sheet1处理成sheet2的样式？通过代码直接在sheet1中实现也行，生成临时表也成。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip
--  作者：大红袍
--  发布时间：2015/8/20 20:13:00
--  
Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("sheet1").DataRows
    If dr("月") > Nothing Then
        pdr = dr
    Else
        Dim ndr As DataRow = DataTables("sheet2").AddNew
        ndr("月") = pdr("月")
        ndr("摘要") = dr("摘要")
    End If
Next
--  作者：hbhb
--  发布时间：2015/8/20 21:27:00
--  
谢谢！如果希望直接在原表中，也就是说在sheet1中？如何搞？
--  作者：大红袍
--  发布时间：2015/8/20 21:42:00
--  
Dim pdr As DataRow = Nothing
Dim idx As String = "-1,"
For Each dr As DataRow In DataTables("sheet1").DataRows
    If dr("月") > Nothing Then
        pdr = dr
        idx &= dr("_Identify") & ","
    Else
        dr("月") = pdr("月")
        dr("日") = pdr("日")
        dr("字") = pdr("字")
        dr("号") = pdr("号")
    End If
Next
DataTables("sheet1").deletefor("_Identify in (" & idx & ")")
--  作者：hbhb
--  发布时间：2015/8/20 22:37:00
--  
Nothing 表示什么？ 那能否 if pdr <> nothing   进行判断？
--  作者：大红袍
--  发布时间：2015/8/20 22:39:00
--  
以下是引用hbhb在2015/8/20 22:37:00的发言：
Nothing 表示什么？ 那能否 if pdr <> nothing   进行判断？

 

空值的意思，你也可以直接写成 ""
--  作者：hbhb
--  发布时间：2015/8/20 22:54:00
--  
哎，您怎么如此娴熟，隔行如隔山呀，我考虑半天，您只要几秒。一边写一边测试，这些鸟人的数据格式、样式五花八门。怎么搞呀？
--  作者：大红袍
--  发布时间：2015/8/20 22:55:00
--  
要人家处理好数据，你再导入
--  作者：hbhb
--  发布时间：2015/8/20 23:08:00
--  
老大妈、大嫂们，能玩电脑就不错了，没有标题的，数据有空格的，word的，excel的，有符号的。妈的个巴子的没有一个是标准直接可导入用的。昨天刚刚改好一段代码，一看又有今天的提问的情况。关键是一些软件版本本身有意而为之。一个集团下面的子公司就财务软件就有10几个类型。
这种情况一般怎么处理呀？
--  作者：大红袍
--  发布时间：2015/8/20 23:12:00
--  
 那就做多种版本的处理方式，供调用。