验槽工作，尤其是岩土专业的技术人员验槽细致与否，是关系到整个建筑安全的关键。每一位工程技术人员，对每一个基槽，都应作到慎之又慎，决不能出现任何疏忽，不能放过任何蛛丝马迹。
在建筑施工时，对安全要求为二级和二级以上的建筑物必须施工验槽。验槽时一般应按下列方法、步骤进行：
1 验槽时必须具备的资料和条件：
1.1 勘察、设计、质监、监理、施工及建设方有关负责人员及技术人员到场；
1.2 附有基础平面和结构总说明的施工图阶段的结构图；
1.3 详勘阶段的岩土工程勘察报告；
1.4 开挖完毕、槽底无浮土、松土（若分段开挖，则每段条件相同），条件良好的基槽。
2 无法验槽的情况：
有下列条件之一者，不能达到验槽的基本要求；无法验槽：

查看更多...

　　其实生活中发生了很多事情，但是却越来越没有勇气把它写下来，怕别人看见也是怕自己看见。

　　昨天是六月初一，每逢初一都是烧香拜佛的大日子，不知道什么时候开始自己也会经常莫名其妙的产生拜佛的冲动，所以尽管下着雨，尽管没有睡醒，还是打了个车去了法界寺。车通过一天门，二天门开到了三天门，下车后你就能感觉到想要的那种尊严与宁静，法界寺在雾中显得那么的安详，这就是向往的地方。

　　穿过光明桥，大约１０分钟的台阶就进入正殿。下雨的原因，烧香拜佛的人并不多，反正这个寺在我印象中感觉是真正的寺，几乎没有什么商业气氛。大殿中，主持带着僧侣们正在为佛像“开光＂．我也不知道用这两个字是否恰当,因为我也是第一次经历这种场面，敲着钟，木鱼，诵经...配合着殿外下着雨，殿中弥散着檀香味，烛光照亮的佛像，这种意境已经神乎其然了，冷不惊意间，却发现佛像前一直黑毛狗，狗是普通的狗，但非常之处是他的表情，那么的安然，那么的善意，那么的臣服... ... 我一向很喜欢狗，但拜佛的狗我确实从未想到过的。也许任何生灵在佛面前都是那么的虔诚。

　　由此我也想过很多，自己是一个无神论者，但是不管你信不信，来到佛面前，三叩九拜，师父敲一钟，停止一切的思考，拂去脑中的杂念，能让时空凝滞，而心中剩下的就是那幽怨的钟声袅绕着,这样就足够了。所以不必去讨论你信不信这个问题，信不信也没有那么重要，这样做的目的只是为了让自己心安理得，生灵得以安息。
　

　　今天给老妈买了个玉的镯子｀听懂的人说，老人加带玉镯子，对身体好．．玉能养人。改变对玉的看法我其实也就是这段时间，前几天看了一段节目是专门讲玉文化的······把自古至今的一些关于玉的传奇故事都讲了一下，再加上身边也有搞玉石雕刻的朋友，慢慢的喜欢上了玉。俗话说黄金有价玉无价，买玉也是看缘分，前几天去市场转了几圈，终于看上了一款，就讨价还价的以１０００的幸运价买了下来，朋友讲还算超值。
　　然后再去朋友那买了条烟，准备将镯子和烟一起寄回去，没想到一起邮局，柜台的老女人说，现在奥运国家管的严，不能寄这些东西，真是郁闷，国家居然把这个鸟大的事情也跟奥运联系起来了·····　

　　同事半个月前就交代我帮他算一下钻探的工作量。这个工作量清单主要内容罗列出单个孔的土层厚度，岩层厚度，溶洞厚度。因为偷懒这段时间都在玩，就把这个事情拖到了今天，下午同事打电话说晚上要我交上去······急了···因为看了下理正，仔细找都没有找到解决这个问题好办法。

　　走投无路了，钻孔有近３００个，手算的话容易错，而且晚上肯定是交不了，想了很久，我觉得还是从理正工程的备份数据库入手。先备份数据库，然后找到z_g_Tuceng这个表,将表中的"ZKBH","TCHD","TCMC"三个列,导入excel中

.

接下来,归类什么是土层.什么岩层,什么是溶洞
将岩土名称中的所有"红粘土""素填土""含碎石红粘土"查找代替为"土"
将岩土名称中的所有"孤石""灰岩""填石"查找代替为"岩"
将岩土名称中的所有"溶洞"查找代替为"洞"
**(方便以后排序将溶洞放后面)

然后排序 按照主要关键字A列.次要关键字为C列升序排.

然后自己编了一个宏,进入excel 工具>宏>visual basic 编辑器

新建一个模块.复制如下代码:
Sub 钻孔工作量统计()
Dim n
Const diceng1 = "土", diceng2 = "岩", diceng3 = "洞"
    For i = 1 To 10000
    If Cells(i, 1) = "" And i > 10 Then Exit For '退出
    If i = 1 Then
        Rows("1:1").Select
        Selection.Insert Shift:=xlDown
        Cells(1, 1) = "孔号"
        Cells(1, 2) = "层厚"
        Cells(1, 3) = "分层"
        Cells(1, 4) = diceng1 & "层"
        Cells(1, 5) = diceng2 & "层"
        Cells(1, 6) = diceng3 & "层"
        Cells(1, 7) = "孔深"
        
    End If
    If i > 1 Then
       If Cells(i, 1).Value = Cells(i - 1 - n, 1).Value Then
           Cells(i, 1) = ""
           Cells(i - 1 - n, 7).Value = Cells(i - 1 - n, 4).Value + Cells(i, 2).Value
           If Cells(i, 3).Value = diceng1 Then
                Cells(i - 1 - n, 4).Value = Cells(i - 1 - n, 4).Value + Cells(i, 2).Value
            ElseIf Cells(i, 3).Value = diceng2 Then
                Cells(i - 1 - n, 5).Value = Cells(i - 1 - n, 5).Value + Cells(i, 2).Value
            ElseIf Cells(i, 3).Value = diceng3 Then
                Cells(i - 1 - n, 6).Value = Cells(i - 1 - n, 6).Value + Cells(i, 2).Value
            End If
            n = n + 1
       Else
            n = 0
            If Cells(i, 3).Value = diceng1 Then Cells(i, 4).Value = Cells(i, 2).Value
            If Cells(i, 3).Value = diceng2 Then Cells(i, 5).Value = Cells(i, 2).Value
            If Cells(i, 3).Value = diceng3 Then Cells(i, 6).Value = Cells(i, 2).Value
       End If
    End If
    Next
End Sub
运行宏后,再按关键字A列排序.你会发现所有数据都按单孔进行罗列..
最后你会得到成果

目前我真不知道有什么比这个更快的方法去算单孔的工作量`````

找了个时间去了一下朋友家````
很漂亮```

查看更多...

1.Command对象的作用：

用于对数据库发出SQL命令，从而执行添加、修改、删除等操作；

2.Comman对象的两个主要方法：

ExecuteNonQuery方法：执行命令并返回受影响的行数；

ExecuteReader方法：执行命令并返回生成的DataReader；

查看更多...

查看更多...

查看更多...

查看更多...

　　ADO.NET提供两个对象用于检索关系型数据并把它存储在内存中，分别是DataSet和DataReader。DataSet提供内存中关系数据的表现--包括表和次序、约束等表间的关系的完整数据集合。DataReader提供快速、只向前、只读的来自数据库的数据流。

　　使用DataSet时，一般使用DataAdapter（也可能是CommandBuilder）与数据源交互，用DataView对DataSet中的数据进行排序和过滤。DataSet可以被继承来建立强化类型的DataSet，用于暴露表、行、列作为强化类型对象属性。

　　下面的内容包含什么时候使用DataSet或DataReader，以及怎样优化访问它们所包含的数据，也包括怎样优化DataAdapter和DataView的使用（也包括CommandBuilder）。

　　DataSet与DataReader的对比

　　在设计应用程序时，决定使用DataSet还是DataReader需要考虑应用程序需要的功能。

查看更多...