1。为什么选定多行后，渠道商返利单价 的值是相同的单价
2。单独选定一行，渠道商返利单价 的值是正确单价
Dim tb1 As WinForm.Table = e.Form.Controls("Table1")
Dim r1 As Row
Dim Names As New List(Of String)
For i As Integer = vars("trow") To vars("brow")
r1 = tb1.Table.Rows(i)
If Names.Contains(r1("行编码")) = False Then '判断集合是否包括"电视机"
Names.Add(r1("行编码"))
End If
Next
For Each djbh As String In names
Dim dr As DataRow = DataTables("出入库明细表").Find("行编码='" & djbh & "'")
If dr IsNot Nothing Then
Dim sr As DataRow
sr = DataTables("政策备案明细表").sqlFind("[供应商内码] = '" & r1("供应商内码") & "' And [渠道商内码] = '" & r1("渠道商内码") & "' And [品种内码] = '" & r1("品种内码") & "'And [销售单位内码] = '" & r1("销售单位内码") & "'", "制单日期 Desc") '在后台查找符合条件的行
If sr IsNot Nothing Then '如果找到了符合条件的行
dr("渠道商返利单价") = sr("渠道商返利单价")
dr.save
End If
End If
Next
加好友 
发短信
Post By：2025/2/20 0:57:00 [显示全部帖子]
