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

zjdh · 发表于 2013-8-24 21:14

林中鸟发表于 2013-8-24 12:54
下载了出入库系统6-4.1.rar 之后点什么都没有反应。是什么问题。请老师帮忙解决。

禁用了宏了吧？！

zjdh · 发表于 2013-8-24 21:15

本帖最后由 zjdh 于 2013-8-25 13:22 编辑

a5213 发表于 2013-8-24 12:05
还来请教zjdh老师，我想把删除记录行功能由原来的一次只能删除一行，改为删除选定的多行，以下代码如何修改 ...

总共才几行记录，有那必要吗？？

慰平生 · 发表于 2013-8-24 21:50

占个座位，这个必须慢慢研究！！{:soso_e182:}

章银钧 · 发表于 2013-8-24 23:08

再来学习。谢谢

a5213 · 发表于 2013-8-25 07:07

zjdh 发表于 2013-8-24 21:15
总共才几行记录，有哪不要吗？？

这只是出于我个人的习惯想修改下，个人觉得更方便些，我习惯在一张单据上输入许多行，我已经把单据

录入的原6行改为11行，增加了“上一张”“下一张”按钮进行前后单据的查询，现在想实现一次删除多

行功能实在是不会了，所以想求助老师。

zjdh · 发表于 2013-8-25 08:16

a5213 发表于 2013-8-25 07:07
这只是出于我个人的习惯想修改下，个人觉得更方便些，我习惯在一张单据上输入许多行，我已经把单据

录 ...

只要分离出选定区域首末行号，其余就简单啦！
用以下语句分离出首末行号：
  AR = Selection.Address
  TP = Range(Split(AR, ":")(0)).Row
  BT = Range(Split(AR, ":")(1)).Row

a5213 · 发表于 2013-8-25 11:53

zjdh 发表于 2013-8-25 08:16
只要分离出选定区域首末行号，其余就简单啦！
用以下语句分离出首末行号：
AR = Selection.Address

按此方法修改成功了。VBA太神奇太博大精深了，没有时间系统地去学，也许还要麻烦楼主老师。

hxangel1314 · 发表于 2013-8-26 11:03

楼主，又要麻烦你一下了。
在单据输入页面， QQ图片20130826104115.jpg

由于我的编码和规格型号比较长，现在用的显示不全，改在哪里修改，在这里可以完全显示，谢谢！

zjdh · 发表于 2013-8-26 14:03

hxangel1314 发表于 2013-8-26 11:03
楼主，又要麻烦你一下了。
在单据输入页面，由于我的编码和规格型号比较长，现在用的显示不全，改在哪里修 ...

修改 listbox1 的 ColumnWidths 属性

zjdh · 发表于 2013-8-26 14:14

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

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