以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义函数参数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195697)

--  作者:feixiang888
--  发布时间:2025/3/2 6:22:00
--  自定义函数参数
一直搞不太明白自定义函数的参数如何定义,如需不需要参数,要什么类型,要几个
比如我下面这段代码在很多地方要用到,想把它弄成一个函数,不知道怎么写参数
Dim strs As String() = _UserRoles.split(",")
    Dim rs As String
    For Each ss As String In strs
        rs = rs & ",\'" & ss & "\'"
    Next
    Dim drs As List(Of DataRow) = DataTables("用户角色档案").Select("角色 IN (" & rs.trim(",") & ") ")
[此贴子已经被作者于2025/3/2 6:35:47编辑过]

--  作者:y2287958
--  发布时间:2025/3/2 7:13:00
--  
这断代码不知道要表达个啥意思。又重复,又累赘 又错误。
--  作者:有点蓝
--  发布时间:2025/3/2 19:53:00
--  
一句代码的事情没有必要使用函数,这种也不需要什么参数

Dim drs As List(Of DataRow) = DataTables("用户角色档案").Select("角色 IN (\'" & _UserRoles.replace(",","\',\'") & "\') ")

一般几十行代码才需要使用函数,或者是要使用的一个完整的功能