请高手帮忙

fsxw

For i = 1993 To 2004 '2004 '1993-2004年
            For j = 1 To 12 '1-12月

                Dim ckllbtoywzhsql As String = "select * from ckllb where 年份='" & i & "' and 月份='" & j & "'"
                Dim ckllbtoywzhcmd As New OracleCommand(ckllbtoywzhsql, ywzhconn)
                ckllbtoywzhdr = ckllbtoywzhcmd.ExecuteReader()


                Do While ckllbtoywzhdr.Read()
                    jmdm = ckllbtoywzhdr.Item("县局编号"
                    ckllbzye = ckllbtoywzhdr.Item("总余额"
                    ckllbhq = ckllbtoywzhdr.Item("活期"


                    Dim ywzhsql2 As String = "select * from ywzhb where 年份='" & i & "'and 月份='" & j & "' and 县局编号='" & jmdm & "'"

                    Label1.Text = ywzhsql2
                    Dim ywzhcmd2 As New OracleCommand(ywzhsql2, ywzhconn)

                    ywzhdr2 = ywzhcmd2.ExecuteReader()
                    If ywzhdr2.Read Then
                        Dim ywzhsql1 As String = "update ywzhb set 月末存款='" & ckllbzye & "',活期='" & ckllbhq & "' "
                        Dim ywzhcmd1 As New OracleCommand(ywzhsql1, ywzhconn)
                        ywzhcmd1.ExecuteNonQuery()
                        ywzhdr2.Close()
                    End If
                    '   ckllbtoywzhdr.NextResult()
                Loop
                'ckllbtoywzhdr.Close()
            Next
        Next

在ywzhb中，月末存款和活期的值都是相同的（列值），请问怎样解决？