Dim dstr As String=args(0)
Dim dstr1 As String=args(1)
Dim dt As DataTable=DataTables(dstr)
Dim dt2 As DataTable=DataTables(dstr1)
Dim drss As List (of DataRow)=dt.SQLSelect("ValueID<>0")
If drss.Count>0 Then
For Each dr As DataRow In drss
If dt2.sqlCompute("count(Valueid)","Valueid='"& dr("Valueid") &"'")>0 Then
Dim dr1 As DataRow=dt2.sqlfind("Valueid='"& dr("Valueid") &"'","timebegin desc")
If dr1 IsNot Nothing Then
If Format(dr1("timebegin"),"yyyy-MM-dd")=Format(Date.Now(),"yyyy-MM-dd") Then
Dim str As String=(dr1("idvalues") & vbcrlf & Format(Date.Now(),"yyyy-MM-dd HH:mm:ss/") & dr1("idvalue")).Trim()
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "U PDATE {nvccsvalue} SET idvalues ='"& STR & "'" & " WHERE Valueid=" & dr("Valueid")
cmd.CommandText = "U PDATE {nvccsvalue} SET idvalue ='"& val(Rand.Next(100)) & "'" & " WHERE Valueid=" & dr("Valueid")
cmd.ExecuteNonQuery
Else
Dim cmd2 As new SQLCommand
cmd2.C
cmd2.CommandText = "I nsert Into {nvccsvalue}(Valueid,timebegin,idvalue) Values ('" & dr1("Valueid") & "','" & Date.Now() & "','" & val(Rand.Next(100)) & "')"
End If
End If
Else
Dim str3 As String=(Format(Date.Now(),"yyyy-MM-dd HH:mm:ss/") & dr2("idvalue")).Trim()
Dim cmd3 As new SQLCommand
cmd3.C
cmd3.CommandText = "I nsert Into {nvccsvalue}(Valueid,timebegin,idvalue,idvalues) Values ('" & dr("Valueid") & "','" & Date.Now() & "','" & val(Rand.Next(100)) & "','" & str3 &"')"
cmd3.ExecuteNonQuery
Continue For
End If
Next
End If
老师,换成i nsert Into 由于str3 还未生成 dr2("idvalue"),怎么改能实现。