Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
Dim cmb As WinForm.ComboBox
cmd.CommandText = "SELECT a.* From {表A} as a inner join (select pn,max(approved) as approved from {表A} group by pn) as b on a.pn = b.pn where a.approved=b.approved"
dt = cmd.ExecuteReader()Dim dt1 As DataTable = DataTables("表B")
Dim w As DataRow
For Each dr As Row In dt.Rows
w = dt1.Find("pn = '" & dr("pn") & "'")
If w is Nothing Then
w = dt1.addnew
w("pn") = dr("pn")
End If
w("po") = dr("po")
w("pi") = dr("pi")
w("approved") = dr("approved")
w("cost") = dr("cost")Next
加好友 
发短信
Post By：2022/6/23 8:35:00 [显示全部帖子]
此主题相关图片如下：1.png