绝对拼装仓库管理Excel2010控制台

wanwan_03 · 发表于 2010-7-6 16:53

学习啊！~

headroom2008 · 发表于 2010-7-16 10:48

膜拜一下。楼主辛苦了，一定花了很多时间。

seadoll · 发表于 2010-7-22 14:57

我用的是03版的，为什么也出现17楼那种错误呢？

me1156202564 · 发表于 2010-7-23 11:14

好强大啊楼主辛苦了学习

aquppiev · 发表于 2010-7-23 17:53

我把你这个拼装的又改了一下，把出入库列表，商品信息都放入了数据库表，但是后面出现了一个很严重的问题，就是进货查询、销售查询、利润盘点这三个用不了了，你能不能把这几段代码帮忙按我的表格改一下，在家内求助的贴子地址为http://club.excelhome.net/thread-600838-1-1.html

roc.jame · 发表于 2010-7-24 00:20

谢谢楼主分享

secowu · 发表于 2010-7-24 07:22

印象中，楼主好像用来卖钱了。

FXSHENG · 发表于 2010-7-24 09:48

原帖由 secowu 于 2010-7-24 07:22 发表
印象中，楼主好像用来卖钱了。

原作可能有，我上传后不知有无盗用贱卖，也无所谓，愿者上钩。
我没做这些鸡鸣狗盗之事。
愿您也留点好印象！

secowu · 发表于 2010-7-26 09:12

原帖由 FXSHENG 于 2010-7-24 09:48 发表

原作可能有，我上传后不知有无盗用贱卖，也无所谓，愿者上钩。
我没做这些鸡鸣狗盗之事。
愿您也留点好印象！

那可能是原作了。
感谢楼主辛苦整合并分享，赞一个。
另，程序在2010下运行出现同样的错误，找不到工程库

FXSHENG · 发表于 2010-7-26 09:26

有网友提出:
能不能请高手做一个既可以用鼠标双击，又能用回车来确认选择的问题问题链接:
http://club.excelhome.net/viewth ... p;page=1&extra=

感谢蓝桥玄霜大师的解答:
USERFORM1增加一段代码如下
Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With ActiveSheet
      .Cells(Selection.Row, Selection.Column).Offset(0, 0) = ListView1.SelectedItem.Text
      .Cells(Selection.Row, Selection.Column).Offset(0, 1) = ListView1.SelectedItem.SubItems(1)
      .Cells(Selection.Row, Selection.Column).Offset(0, 2) = ListView1.SelectedItem.SubItems(2)
      .Cells(Selection.Row, Selection.Column).Offset(0, 3) = ListView1.SelectedItem.SubItems(3)
      End With
      Unload Me
End If
End Sub
同时感谢lapchiu!

[ 本帖最后由 FXSHENG 于 2010-7-26 15:25 编辑 ]

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

[分享] 绝对拼装 仓库管理Excel2010控制台

[分享] 绝对拼装仓库管理Excel2010控制台