Dim s As String
Dim l As WinForm.CheckedListBox = forms("买家结算对账").Controls("CheckedListBox1")
If e.Table.Current Is Nothing Then '如果Current为Nothing
Else
For Each Index As Integer In l.CheckedIndices
If s > "" Then
s = s & ","
End If
s = s & "'" & l.Items(Index) & "'"
Next
msgbox (s)
'Tables("买家结算对账_Table2").Filter="姓名='" & Tables("buyerdz").rows(e.Table.Position )(2) & "'"
Dim dst1 As Table = Tables("jtdj")
Dim cmd As New SQLCommand
Dim str As String
Dim i As Integer
str="select a.* from jtdj a inner join buyerdz b on a.姓名=b.买家姓名 inner join auctionall c on a.拍卖会编号=c.拍卖会ID where a.姓名='" & Tables("buyerdz").rows(e.Table.Position )(2) & "'And c.拍卖会名称 In (" & s & ") "
msgbox (str)
cmd.C
cmd.CommandText = str
dst1.DataSource = cmd.ExecuteReader()
'For i=1 To dst1.count
'Dim dr As Row = dst1.Rows(i-1)
'msgbox (dr)
'dr("竞投牌号") = "" & i
'Next
dst1.AutoSizeCols()
End If
我到查询这儿 就不知道怎么刷新了
[此贴子已经被作者于2013-4-3 16:27:29编辑过]
加好友 
发短信
Post By：2013/4/3 16:03:00 [只看该作者]
此主题相关图片如下：未命名.jpg