- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助,内部函数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=38272)
-- 发布时间：2013/7/24 15:24:00
-- 求助,内部函数
Dim t As Table = Tables("供应商资料子表")
With Tables("供应商资料主表")
If .Current Is Nothing Then Return
t.Filter = "代码 = \'" & .Current("代码") & "\'"
End With
普通代码如上
Dim tbn As String = Args(0)\'主表名
Dim tbn1 As String = Args(1)\'子表名
Dim cn As String = Args(2)\'关联列名
Dim t As Table = Tables(tbn1)
With Tables(tbn)
If .Current IsNot Nothing Then Return Nothing
t.Filter = "cn = \'" & .Current(cn) & "\'"
End With
Return Nothing
内部函数如上
一执行就出错死窗口，求红色部分指正一下，cn该如何表示？if ...ruturn后面的返回nothing可以这样写吗？
-- 发布时间：2013/7/24 15:26:00
--
上个例子看看吧.
-- 发布时间：2013/7/24 16:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试函数111.foxdb |
函数执行在窗口表的table1里的curretnchanged事件
-- 发布时间：2013/7/24 16:32:00
--
例子已上,函数执行不起作用，帮忙解决下吧
-- 发布时间：2013/7/24 16:35:00
--
空白的例子- - 好歹你也加个调用出错的按钮 让我们看看是什么情况才好判断啊.
-- 发布时间：2013/7/24 16:37:00
--
以下是引用Bin在2013-7-24 16:35:00的发言：
空白的例子- - 好歹你也加个调用出错的按钮 让我们看看是什么情况才好判断啊.
空白的例子- - 好歹你也加个调用出错的按钮 让我们看看是什么情况才好判断啊.
。。。在窗口里啊
-- 发布时间：2013/7/24 16:39:00
--
函数的执行在窗口中的table1的currentchangged事件里哦，常规代码和函数代码我都放里面了
常规代码可以执行，函数代码没反映？
-- 发布时间：2013/7/24 16:40:00
--
没有报错啊,正常运作啊.你是说上面表为空的时候报错吗?
就算删除表数据也只是提示一个空值错误而已,一切都正常啊.
-- 发布时间：2013/7/24 16:42:00
--
以下是引用Bin在2013-7-24 16:40:00的发言：
没有报错啊,正常运作啊.你是说上面表为空的时候报错吗?
没有报错啊,正常运作啊.你是说上面表为空的时候报错吗?
就算删除表数据也只是提示一个空值错误而已,一切都正常啊.
报错我估计是跟我做的项目其他代码有冲突，这个不重要，我会排查，现在关键是这个内部函数无法执行啊
你把正常代码的\'去掉执行下就知道我要的效果了
[此贴子已经被作者于2013-7-24 16:42:35编辑过]
-- 发布时间：2013/7/24 16:55:00
--
没有报错.上面选了.下面就显示上面选择的那条数据? 你不是想要这样吗? 没看出问题啊.