table控件currentchanged事件代码Dim s As String
Dim l As WinForm.CheckedListBox = forms("买家结算对账").Controls("CheckedListBox1")
For Each Index As Integer In l.CheckedIndices
If s > "" Then
s = s & ","
End If
s = s & "'" & l.Items(Index) & "'"
Next
Dim jtph As Integer
Tables("jtdjall").StopRedraw
Tables("jtdjall").Filter="姓名='" & e.Table.Current("买家姓名") & "'"
For Each r1 As Row In Tables("jtdjall")
jtph = r1("竞投牌号")
Next
Tables("httable").Filter="竞投牌号='" & jtph & "'"
Tables("httable").ResumeRedraw
此主题相关图片如下:table.jpg

出现的问题是选中行 控件的记录跟选中行的记录不统一