主题：[求助]大数据的处理

我现在建了个sql数据库，1行存放一个站点1天的各个要素值，现在要增加130个站点50年的资料，数据量很大，我的思路是先查找某站点某天的资料是否入库了，如果没有，新增一行，加入数据，否则更新数据，可是非常慢，追加1个站点的一个要素都要2个多小时。求指点，有没有更好的方法。代码如下：

'''加日雨量
Dim dr1 As DataRow
Dim dt As Date
Dim fl As String

For Each dr As DataRow In DataTables("rd56768").DataRows
    For i As Integer =1 To Date.DaysInMonth(dr("年"),dr("月"))
        dt = dr("年") & "/" & dr("月") & "/" & i
        fl = "Id = '56768' and datetime = " & "#" & dt & "#"
        'Output.Show("条件:" & fl)
       
        dr1 = DataTables("日气象要素").Find(fl)
        If dr1 IsNot Nothing Then '如果找到的话
            dr1("R") = dr("r" & i)
            dr1("R2008") = dr("r28" & i)
            dr1("R0820") = dr("r82" & i)
        Else
            Tables("日气象要素").AddNew()
            dr1("R") = dr("r" & i)
            dr1("R2008") = dr("r28" & i)
            dr1("R0820") = dr("r82" & i)
           
        End If
       
    Next
Next

此主题相关图片如下：qq图片1.jpg


此主题相关图片如下：qq图片2.jpg

图1里的表是原始数据，一个要素一个月存一行，每个站点一个要素存一个文件，我想把所有站点所有要素放在一个库里，如图2里的表，也就是按我的要求，把表1里面的数据转存到表2里。就是这个意思。

不用find函数，还有更好的查找函数吗？