以《仓库进销存管理系统》来学习VBA知识

ctp_119 · 发表于 2012-3-28 11:58

riselv 发表于 2012-3-27 21:16
WIN7系统，EXCEL2003和EXCEL2010都会弹出如上出错信息

这些问题都得到了改进，我已经回复了你的信息了，把你QQ给我，我发给你新版本的。

hbqjzzz · 发表于 2012-3-31 18:31

ctp_119 发表于 2012-3-28 11:58
这些问题都得到了改进，我已经回复了你的信息了，把你QQ给我，我发给你新版本的。

请给我一份！QQ：1229562153

lvxinke2008 · 发表于 2012-4-1 12:13

不错，学习了，谢谢！

落子无声 · 发表于 2012-4-1 13:14

ctp_119 发表于 2012-3-28 11:58
这些问题都得到了改进，我已经回复了你的信息了，把你QQ给我，我发给你新版本的。

我的ＱＱ　２９７０５８２９２.盼得到老师的进销存系统。

福哥 · 发表于 2012-4-3 19:52

楼主辛苦，分享你的成果

wzhfirst · 发表于 2012-4-18 14:36

我也看那个帖子，本以为从此走上了VBA的坦途，可惜嘎然而止

fxdfsf · 发表于 2012-4-22 10:08

偷懒，是一种原始的学习动力，勤于思考是偷懒的结果。兴趣是勤于思考的儿子。

经典

ctp_119 · 发表于 2012-4-23 08:17

对查询进行了改进，因为同一供应商，同一时间里面有可能有挂账也有现金的，以前没有这方面的考虑，先对其代码修改。。

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim arr As Variant
Dim x As Long
Dim j As Long
Range("a:O").ClearContents
If b Then
arr = Array("入库日期", "品名规格", "单位", "入库数量", "入库单价", "入库金额", "指令单号", "合同号", "生产批号", "货号", "采购类别", "供应商", "单据编号")
Else
arr = Array("入库日期", "品名规格", "单位", "入库数量", "入库单价", "入库金额", "指令单号", "合同号", "生产批号", "货号", "采购类别", "采购员", "单据编号")
End If
Range("a1:m1") = arr
If ComboBox1.Text = "请选择" Then
MsgBox "没有选择"
Unload Me
Exit Sub
End If
Dim cnn As New ADODB.Connection
cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
If b Then
Sql = "select * from [入库$] where 采购类别='挂账' and 供应商或采购员='" & ComboBox1.Text & "'"
Else
Sql = "select * from [入库$] where 采购类别='现金' and 供应商或采购员='" & ComboBox1.Text & "'"
End If
[a2].CopyFromRecordset cnn.Execute(Sql)
cnn.Close
Set cnn = Nothing
j = [L65536].End(xlUp).Row + 1
With Worksheets("查询")
.Cells(j, 1) = "本月合计"
.Cells(j, 4).Formula = "=sum(d2:d" & j - 1 & ")"
.Cells(j, 6).Formula = "=sum(f2:f" & j - 1 & ")"
End With
Application.ScreenUpdating = True
Unload Me
End Sub

复制代码

紫檀香木 · 发表于 2012-4-23 15:09

初学者，实在看不懂，发给我一个用用，再慢慢研究，谢谢！13594518@qq.com

小小娇 · 发表于 2012-4-25 00:42

大力支持，继续下去，这里就是好学者的天堂。:

		自动登录	找回密码
密码			免费注册

[原创] 以《仓库进销存管理系统》来学习VBA知识