小小出入库管理系统(2012年12月又作了更新)

zjdh · 发表于 2011-10-9 08:04

本帖最后由 zjdh 于 2011-10-9 08:25 编辑

合肥漫文发表于 2011-10-8 23:42
点调试显示的内容

我明白了，估计是编码型式问题，修改以下语句试试：
sql = "select 部门 & 备注,入库数量,入库单价,入库金额,出库数量,出库单价,出库金额 from [数据库$] where [数据库$].编码='" & [D4] & "‘"

zjdh · 发表于 2011-10-9 08:13

本帖最后由 zjdh 于 2011-10-9 08:14 编辑

玄霄发表于 2011-10-8 15:35
错误指向b = Application.WorksheetFunction.Match(Range("j3"), Sheet6.Columns(4), 0)

我这运行正常！
要不你修改为：
b = Application.Match(Range("j3"), Sheet6.Columns(4), 0)

合肥漫文 · 发表于 2011-10-10 09:53

能告诉我怎么修改吗？呵呵！刚入门！！！不会！！学习中。。。

爱手爱脚 · 发表于 2011-10-10 14:02

好厉害，{:soso_e179:}

zjdh · 发表于 2011-10-10 15:23

合肥漫文发表于 2011-10-10 09:53
能告诉我怎么修改吗？呵呵！刚入门！！！不会！！学习中。。。

把这句全部替换也可以。

宝岛行 · 发表于 2011-10-10 16:25

高手真不少啊，谢谢。下载来学习下。

Lisa_168 · 发表于 2011-10-10 17:37

谢谢楼主的分享

Lisa_168 · 发表于 2011-10-10 17:42

非常好的学习材料啊{:soso_e130:}

anna512 · 发表于 2011-10-10 20:21

楼主您真伟大，修改后的模板更适用了。非常感谢分享！

sanjiangren · 发表于 2011-10-11 16:35

随着日子的过去，输入的单据越来越多，当打印时，显示的单据很多，变成选择时困难，有没有一种比较好的方法来解决这个问题呢

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

[分享] 小小出入库管理系统(2012年12月又作了更新)