以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义函数的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90756)

--  作者:lml88
--  发布时间:2016/9/21 10:34:00
--  自定义函数的问题
Dim g As New GroupTableBuilder("统计表", DataTables(Args(0)))

如上代码,统计表的表名,我想传参数进来,可是报错


---------------------------
错误
---------------------------
编译错误:重载决策失败,原因是没有可访问的“New”能够不经收缩转换即可被调用: 



错误代码:Dim g As New GroupTableBuilder("统计表", DataTables(Args(0)))
---------------------------
确定   
---------------------------


--  作者:有点蓝
--  发布时间:2016/9/21 10:52:00
--  
msgbox(Args(0))看看
--  作者:lml88
--  发布时间:2016/9/21 11:04:00
--  
不是这个值的问题,是他不允许这么写

Dim dr1 As DataRow
DataTables(Args(4)).DataRows.Clear

这样写就可以

--  作者:逛逛
--  发布时间:2016/9/21 11:04:00
--  
数据类型不对,Args(0) 是Object 类型,必须转换到String

老老实实按帮助写吧

Dim N As String = Args(0)

Dim g As New GroupTableBuilder("统计表", DataTables(N))

--  作者:lml88
--  发布时间:2016/9/21 11:14:00
--  
恩,这样写就可以了