Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义函数e


  共有2206人关注过本帖平板打印复制链接

主题:[求助]自定义函数e

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20167 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]自定义函数e  发帖心情 Post By:2015/7/1 22:36:00 [只看该作者]

老师,
   问个问题,假如一个SQLtable 名字叫“窗口1_table1”   “窗口1_table1”   应用自定义函数  e 作为参数传入  代码如下:Functions.Execute("datacol",DataTables("部门档案"),e)
函数是这样的
Dim dt As DataTable=args(0)
Dim e As object = args(1)
Dim dt1 As DataTable= DataTables("编码规则")
Dim dc As DataCol = e.DataCol
If dc.Name = "部门编码" AndAlso e.newValue <> Nothing Then
    Dim fdr As DataRow = dt1.Find("数据表名 = '" & dt.Name & "'")
    If fdr IsNot Nothing Then

假如 Functions.Execute("datacol"  这个自定义函数中 有e.datetable 使用了

那就这Functions.Execute("datacol",DataTables("部门档案"),e) 函数 


e.datetable 是datetable("窗口1_table1“)  还是  DataTables("部门档案")
 


 回到顶部