【Access小品】万法归一 --- 以单据为中心的物料管理系统示例

ycxchen · 发表于 2013-12-19 10:37:38

本帖最后由 ycxchen 于 2013-12-19 10:39 编辑

调试时提示如下函数出错：找不到工程或库
Function GetBillName(ByVal n As Node) As String
'返回选中节点的单据名称
Dim str As String
str = ""
If n.Key Like "c*" Then
      str = Left(n.Text, Len(n.Text) - 4)
Else
      If n.Key Like "e*" Then
         str = Left(n.Text, Len(n.Text) - 10)
      End If
End If
GetBillName = str
End Function

nncchh · 发表于 2015-7-20 12:30:33

学习学习

nncchh · 发表于 2015-7-20 12:30:56

学习学习

风中漫步 · 发表于 2015-10-25 09:52:41

正学习bom,看看图.
谢谢分享

nncchh · 发表于 2016-1-31 13:28:10

谢谢分享

changxing · 发表于 2016-5-24 20:57:28

谢谢分享！！支持原创！！

alingyct · 发表于 2016-5-25 08:37:07

学习了，多谢

panjie9327 · 发表于 2016-6-24 12:57:41

谢谢分享

wsl020304 · 发表于 2016-6-26 00:09:59

这个要顶一下，感谢楼主分享

李力军2 · 发表于 2016-7-4 08:37:04

好贴,顶

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 【Access小品】万法归一 --- 以单据为中心的物料管理系统示例

群介绍
主题无相 (随机显示版	同地区群块其他地区)