主题：请教代码

袍大师好！请问实例中如何实现

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

谢谢！如果希望直接在原表中，也就是说在sheet1中？如何搞？

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 & ")")

Nothing 表示什么？ 那能否 if pdr <> nothing   进行判断？

 

空值的意思，你也可以直接写成 ""

哎，您怎么如此娴熟，隔行如隔山呀，我考虑半天，您只要几秒。一边写一边测试，这些鸟人的数据格式、样式五花八门。怎么搞呀？

要人家处理好数据，你再导入

老大妈、大嫂们，能玩电脑就不错了，没有标题的，数据有空格的，word的，excel的，有符号的。妈的个巴子的没有一个是标准直接可导入用的。昨天刚刚改好一段代码，一看又有今天的提问的情况。关键是一些软件版本本身有意而为之。一个集团下面的子公司就财务软件就有10几个类型。

 那就做多种版本的处理方式，供调用。