熟悉VB的朋友请进来帮个忙，高分赠送！！

来源：百度知道 编辑：UC知道 时间：2024/07/02 04:17:32
用Adodc+Access写了个程序，数据库中保存数据及结构如下：
编号 客户名 发货单号 发货日期 业务员 规格 产品类型 型号 单位 重量 单价
1001 吴生 080913001 2008-09-13 李明 2米 PVC膜 1043 公斤 16 9.9
1001 吴生 080913001 2008-09-13 李明 2米 PVC膜 1043 公斤 15 9.9
1001 吴生 080913001 2008-09-13 李明 2米 PVC膜 1025 公斤 16 9.9
1001 吴生 080913001 2008-09-13 李明 1.8米 PVC膜 1025 公斤 12 9.9
1001 吴生 080913001 2008-09-13 李明 1.8米 PVC膜 1025 公斤 16 9.9

数据表中的内容用Text控件显示。
text1(2)显示规格，text1(3)显示单位,text1(4)显示单价
text2(1)~text2(4)用于显示型号。 text6(1)~text6(48)用于显示重量。
规格不相同的在另一个框，控件名为：text2(5)~text2(8) text6(49)-text6(96)
以上的Text6控件，每行12个。

我写的程序代码如下：
Set rs = Nothing
rs.Open "Select * From FahuoManager Where 发货单号='" & Text1(1) & "'", con, 1, 3
TempModel = rs.Fields("型号")
TempGuiGe = rs.Fields("规格")
Tempi = 1
For i = 1 To 48
If rs.Fields("规格") <> Text1(2) And

Set rs = Nothing
rs.Open "Select * From FahuoManager Where 发货单号='" & Text1(1) & "'", con, 1, 3
TempModel = rs.Fields("型号")
TempGuiGe = rs.Fields("规格")
Tempi = 1
For i = 1 To 48
If rs.Fields("规格") <> Text1(2) And rs.Fields("型号") <> TempModel And Trim(Text6(i)) <> "" Then
'TempGuiGe = rs.Fields("规格")
TempModel = rs.Fields("型号")
Tempi = Tempi + 1
rs.MoveNext
Else
If i Mod 12 = 0 Then Tempi = Tempi + 1
SStr = "Select * From FahuoManager Where 发货单号='" & Text1(1) & "' And 规格='" & TempGuiGe & "'"
rs.Open SStr, con, 1, 3
Text2(Tempi) = rs.Fields("型号")
Text1(3) = rs.Fields("单位")
Text1(4) = rs.Fields("单价")
Text6(i) = rs.Fields("重量")
End If
Next

你这6.0的代码有点看不懂,不过我人为是你