试验Windows Live Writer更新日志

1.发现不能插入代码段。找了个插件，用了一下，就出问题——未将对象引用设置到对象的实例。…

2.短网址插件，嗯 插入即down掉…

3.使用Paste for Visual Studio插件贴代码！（如下，发现没有那些折叠选项）

粘贴代码最好的方法就是使用VSPaste插件。它的使用方法非常简单，只需要在Visual Studio中复制代码，然后在Windows Live Writer中点击“插入”，再点击“Paste from Visual Studio”就可以了。由于复制的代码为富文本格式（Rich Text Format，RTF），插件会根据文本内容生成相应的HTML，最终粘贴在Writer中的代码配色和你的Visual Studio种的配色是一样的，这样的体验非常不错。而这些代码会放置在一个class为code的pre标记中，我们可以在CSS中进行设置，得到想要的代码块样式。

''' 

''' 储量汇总基类
''' 
''' 
  
  
Public MustInherit Class clsSumResBase

    ''' 

    ''' 汇总储量
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Function SumReserves() As Boolean
        'SummarizeReserves

        '检查空间数据库数据
        ''创建空间库检查的内容HashTable或SortedList
        ''检查动用量：是否存在空值
        ''检查采出量：是否存在空值
        ''检查采空区：是否存在空值
        '检查关系数据库数据
        ''创建关系库检查的内容HashTable或SortedList
        ''检查转出量：是否存在空值
        ''检查年末汇总数据：是否包含EndDate之后年份的汇总数据

        '检查无误后，获取这些表
        ''获取加数据
        ''--获取空间数据
        ''--获取关系数据
        ''获取减数据
        ''--获取空间数据
        ''--获取关系数据
        ''获取历史数据

        '汇总煤厚信息
        '汇总资源储量（或纯煤）
        '汇总转出
        '汇总原煤（或储量平衡表）
        '汇总损益
        '汇总历年
        Try
            '获取需要检查的空间表和关系表
            Dim CheckTables_Spatial As Hashtable = DataCheckTables_Spatial()
            Dim CheckTables_Relational As Hashtable = DataCheckTables_Relational()

            If CheckTables_Spatial IsNot Nothing And CheckTables_Relational IsNot Nothing Then
                '根据这些表，检查是否存在空数据

                '获取检查结果值
                Dim DataCheck_SpatialResult As Hashtable = DataCheck_Spatial(CheckTables_Spatial)
                Dim DataCheck_RelationalResult As Hashtable = DataCheck_Relational(CheckTables_Relational)

                Dim pCheckResult_S As Boolean = DataCheck_SpatialResult.ContainsValue("Y")
                Dim pCheckResult_R As Boolean = DataCheck_RelationalResult.ContainsValue("Y")

                '均不存在空数据
                If pCheckResult_S = True And pCheckResult_R = True Then
                    '不存在空数据的情况，获取这些数据到内存

                    '获取空间表及其筛选条件
                    Dim Tables_Spatial As Hashtable = GetTables_Spatial()

                    '获取空间数据
                    Dim DataSpa As DataSet
                    DataSpa = GetData_Spatial(Tables_Spatial)


                    '获取空间表及其筛选条件
                    Dim Tables_Relational As Hashtable = GetTables_Relational()

                    '获取关系数据
                    Dim DataRel As DataSet
                    DataRel = GetData_Relational(Tables_Relational)

                    '关于块段与钻孔包含关系，应该是一张关系表！即应该包含在上一步中！

                    '开始汇总块段表
                    '计算资源储量（或纯煤）
                    '汇总采空
                    '汇总转出
                    '汇总原煤（储量计算平衡表）
                    '损益表
                    '汇总表

                    '均存在空数据
                ElseIf pCheckResult_S = False And pCheckResult_R = False Then
                    '错误信息提示

                    '只有空间数据库存在空数据
                ElseIf pCheckResult_S = False Then
                    '错误信息提示

                    '只有关系库存在空数据
                ElseIf pCheckResult_R = False Then
                    '错误信息提示

                End If

            Else
                '获取失败,弹出错误信息，然后关闭
                Exit Function

            End If
        Catch ex As Exception

        End Try


    End Function

    ''' 

    ''' 获取需要检查数据的空间库表名和条件
    ''' 
    ''' 
  
  
    
  
  ''' 第一列存储，表名
    ''' 第二列存储，检查条件
    ''' 举例
    ''' 
    ''' 
  
  
    Public Overridable Function DataCheckTables_Spatial() As Hashtable
        Dim pHashTable As New Hashtable
        Try
            '第一列存储，表名
            '第二列存储，检查条件
            '举例
        Catch ex As Exception
            Return Nothing
        End Try
        Return pHashTable
    End Function

    ''' 

    ''' 获取需要检查数据的关系库表名和条件
    ''' 
    ''' 
  
  
    
  
  ''' 第一列存储，表名
    ''' 第二列存储，检查条件
    ''' 举例
    ''' 
    ''' 
  
  
    ''' 
    Public Overridable Function DataCheckTables_Relational() As Hashtable
        Dim pHashTable As New Hashtable
        Try
            '第一列存储，表名
            '第二列存储，检查条件
            '举例
        Catch ex As Exception
            Return Nothing
        End Try
        Return pHashTable
    End Function

    ''' 

    ''' 检查有哪些(空间)表存在符合条件
    ''' 
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Overridable Function DataCheck_Spatial(ByVal argNameCondition As Hashtable) As Hashtable
        'new SortedList
        Dim pHashTable As New Hashtable
        Try
            '第一列存储，表名
            '第二列存储，检查结果，“Y”表示存在符合条件的结果，“N”表示不存在符合条件的结果
            '一般只存Y即可
            '举例
        Catch ex As Exception
            Return Nothing
        End Try
        Return pHashTable
    End Function

    ''' 

    ''' 检查有哪些(关系)表存在符合条件
    ''' 
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Overridable Function DataCheck_Relational(ByVal argNameCondition As Hashtable) As Hashtable
        Dim pHashTable As New Hashtable
        Try
            '第一列存储，表名
            '第二列存储，检查结果，“Y”表示存在符合条件的结果，“N”表示不存在符合条件的结果
            '一般只存Y即可
            '举例
        Catch ex As Exception
            Return Nothing
        End Try
        Return pHashTable
    End Function

    Public Overridable Function GetTables_Spatial() As Hashtable
        Dim pHashTable As New Hashtable
        Try
            '第一列存储，表名
            '第二列存储，筛选条件
            '举例
        Catch ex As Exception
            Return Nothing
        End Try
        Return pHashTable
    End Function

    Public Overridable Function GetTables_Relational() As Hashtable
        Dim pHashTable As New Hashtable
        Try
            '第一列存储，表名
            '第二列存储，筛选条件
            '举例
        Catch ex As Exception
            Return Nothing
        End Try
        Return pHashTable
    End Function

    ''' 

    ''' 获取空间数据库数据
    ''' 
    ''' 
    ''' 第一列，存表的名字
    ''' 第二列，存筛选的条件
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Overridable Function GetData_Spatial(ByVal argNameCondition As Hashtable) As DataSet
        Dim pReturnDS As New DataSet

        Return pReturnDS
    End Function

    ''' 

    ''' 获取关系数据库数据
    ''' 
    ''' 
    ''' 第一列，存表的名字
    ''' 第二列，存筛选的条件
    ''' 
    ''' 
  
  
    ''' 
  
  
    Public Overridable Function GetData_Relational(ByVal argNameCondition As Hashtable) As DataSet
        Dim pReturnDS As New DataSet

        Return pReturnDS
    End Function


End Class