用vb和SQL编一个网上订货系统

来源：百度知道 编辑：UC知道 时间：2024/05/24 00:07:01
处理订单时，首先MSHFlexGrid1控件中存有数据库商品表中所有的商品信息，在单击MSHFlexGrid1中任意一行商品时，在另外一个MSHFlexGrid2控件中显示我单击的那一行商品信息如果单击第二件商品时，能够在MSHFlexGrid2控件中再次显示商品信息，但是不覆盖第一次显示的商品信息。
麻烦能不能把代码的具体编写写一下。

Dim j As Integer
Dim STR(0 To 100) As Integer
Private Sub MSHFlexGrid1_Click()

Dim a As Integer

STR(j) = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)

If j = 0 Then

GoTo l1
Else
GoTo l2
End If
l1:
rs.Open "select * from commodities where S_id='" + Trim(STR(j)) + "'", con, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid2.DataSource = rs
rs.Close
j = j + 1
Exit Sub
l2: For a = 0 To j
Set rs = con.Execute("update commodities set flag =1 where S_id='" + Trim(STR(a)) + "' ")
Next
rs.Open "select * from commodities where flag=1", con, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid2.DataSource = rs
rs.Close
j = j + 1
Exit Sub
你试试吧~~~~

设置2个记录集
一个显示
另外个在点击第一个时候执行addnew并刷新MSHFlexGrid2
10分你要代码?