Dim cs As String = "'" & e.node.name & "',"
For Each nd As winfo rm.treenode In e.node.AllNodes
cs &= "'" & nd.name & "',"
Next
Dim su01 As Integer
Dim cmd As new SQLCommand
cmd.CommandText = "Select * from {VW_BD_Product} where Category IN (" & cs.trim(",") & ")"
msgbox(cmd.CommandText ) ‘这里弹出什么内容
DTb03 = cmd.ExecuteReader()
Tables(e.Fo rm.name & "_Table1").DataSource = DTb03
su01=DTb03.dataRows.count
msgbox("记录数:" & str(su01))
Tables(e.Fo rm.name & "_table1").setcolvisiblewidth("GoodsNO|80|GoodsName|150|Description|200|CZ|80|UnitD|60|CategoryD|100|Color|80|UllagePercent|80|isFlagD|60|BarCode|100")
Dim tb01 As Table = Tables(e.fo m.name & "_table1")
加好友 
发短信
Post By：2017/5/12 22:08:00 [显示全部帖子]
