以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]cmd定义函数引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80436)

--  作者:blsu33
--  发布时间:2016/1/22 17:01:00
--  [求助]cmd定义函数引用
红袍老师,
  我是直接把SQL语言定义为函数,然后直接使用,这个会有问题吗?
例如

定义函数 

Dim dt As DataTable
Dim name As String=args(0)\'要加载的表名
Dim Bool As Boolean=args(1)\'只读还是可以编辑
Dim flt As String=args(2)\'只筛选条件
cmd99.CommandText = "Select * F rom {"& name &"} where "& flt &""
dt = cmd99.ExecuteReader(bool)
Return dt

然后 每次就不写 直接写 
dim dt as datatable=Functions.Execute("函数 ","表A",0,“1=1”)


--  作者:大红袍
--  发布时间:2016/1/22 17:07:00
--  

 你弄一个通用的更好

 

dim dt as datatable=Functions.Execute("函数", "select * fr om {表A}", "数据源名")

 


--  作者:大红袍
--  发布时间:2016/1/22 17:08:00
--  
你根据自己实际需要定义,没问题的。
--  作者:lemonkashi
--  发布时间:2019/3/9 23:37:00
--  
牛牛牛