- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 声名问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43497)
-- 发布时间：2013/12/9 10:12:00
-- 声名问题
Dim nyr As String=Date.Now.Year & format(Date.now.Month,"00") & format(Date.now.Day,"00")
Dim zc As String
Dim drz As DataRow = DataTables("系统参数表").Find("类别= \'" & 借还库标识 & "单编号\'") \' And 内容=\'" & nyr & "\'")
If drz("内容")<>nyr Then
drz("内容")=nyr
drz("流水")=0
End If
drz("流水")=drz("流水")+1
If 借还库标识="借用" Then
zc="JY" & drz("内容") & format(drz("流水"),"00")
End If
If 出入库标识="归还" Then
zc="GH" & drz("内容") & format(drz("流水"),"00")
End If
Tables("系统参数表").Current.Save()
Return zc
点确定的时候说：借还标识没有声名，请问这在那里设置？
此主题相关图片如下：qq截图20131209101016.png
-- 发布时间：2013/12/9 10:13:00
--
变量,需要先声明才可以使用的
-- 发布时间：2013/12/9 10:19:00
--
这些代码是别人编的，当自己也这样写出来后就提示我没有声名。我不知道作者是在那里设置的？
-- 发布时间：2013/12/9 10:21:00
--
那就询问作者去吧,你这样当搬运工不是个办法.
随便声明一个也许就不能实现原本的效果了.
你检查一下是否是全局变量吧
-- 发布时间：2013/12/9 10:34:00
--
好的。