UC知道（急）寻高手 VB中的excel问题
来源：百度知道 编辑：UC知道 时间：2024/06/04 03:18:37
我有两个excel文件，一个存放 订单号 客户名称 产品编号 订购产品名称 订购数量
一个存放 产品编号 产品名称 材料编号 材料名称 材料数量
我要用VB做查询，当选择订单号码后，显示文件2里的材料名称和材料总数量
材料总数量=订购数量*材料数量
我的代码如下：
Option Explicit
Dim excelapp, excelbook, excelsheet, dingdanhao, excelbook2, excelsheet2
Private Sub WLFrame1_Click()
End Sub
Private Sub Command1_Click()
List1.Clear '当点击后先清楚内容
List1.AddItem (" 材料 数量")
List1.AddItem ("===============================================================================")
Dim i, t As Integer
Dim max As Long
Dim a(), b(), c(), d(), e() As String
Dim a2(), b2(), c2(), d2(), e2() As String
max = 200
ReDim a(max), c(max), e(max), a2(max), c2(max), d2(max), e2(max) As String
For i = 2 To 200
a(i) = excelsheet.range("A" & i).Value
If Combo1.Text = a(i) Then
一个存放 产品编号 产品名称 材料编号 材料名称 材料数量
我要用VB做查询，当选择订单号码后，显示文件2里的材料名称和材料总数量
材料总数量=订购数量*材料数量
我的代码如下：
Option Explicit
Dim excelapp, excelbook, excelsheet, dingdanhao, excelbook2, excelsheet2
Private Sub WLFrame1_Click()
End Sub
Private Sub Command1_Click()
List1.Clear '当点击后先清楚内容
List1.AddItem (" 材料 数量")
List1.AddItem ("===============================================================================")
Dim i, t As Integer
Dim max As Long
Dim a(), b(), c(), d(), e() As String
Dim a2(), b2(), c2(), d2(), e2() As String
max = 200
ReDim a(max), c(max), e(max), a2(max), c2(max), d2(max), e2(max) As String
For i = 2 To 200
a(i) = excelsheet.range("A" & i).Value
If Combo1.Text = a(i) Then
这种问题可不是几个百度币就能解决的
解决你这一个问题花上一个小时 再伤N个脑细胞 挣这几个百度币怕是值不得吧
兄弟 我建议你还是去专业论坛里看看 自己多调试调试 或者去网上找找有无此类兼职写手
实话说 本人就是此道高手 你这种问题也就几百块钱 若是真的有用 岂不快哉
我的邮箱 zhengguangxue@126.com
还不如直接在Excel中用VBA编个程序来得快,也不需要这么复杂