Foxtable(狐表)用户栏目专家坐堂 → 帮忙改成函数


  共有1523人关注过本帖树形打印复制链接

主题:帮忙改成函数

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


加好友 发短信
等级:童狐 帖子:241 积分:2340 威望:0 精华:0 注册:2018/5/21 16:49:00
帮忙改成函数  发帖心情 Post By:2019/10/20 18:47:00 [只看该作者]

函数名:加载数据

 

Dim cmd As New SQLCommand

cmd.C


Dim dt1,dt2,dt3,dt4,dt5,dt6,dt7,dt8,dt9,dt10 As DataTable


cmd.CommandText = "Sel ect *  From {收汇方式} where [_Identify] Is NULL"
dt1 = cmd.ExecuteReader()'生成临时表

cmd.CommandText = "Sel ect [_Identify],监管方式简称 From {监管方式} where [_Identify] Is NULL"
dt2 = cmd.ExecuteReader()'生成临时表

......


With e.form

.Controls("ComboBox1").ComboList = Dt1.sqlGetComboListString("收汇方式")

.Controls("ComboBox2").ComboList = Dt2.sqlGetComboListString("监管方式")
.......
End With

 窗口中有控件ComboBox1,ComboBox2......

希望在窗口Afterload事件中异步调用。

Functions.AsyncExecute("加载数据",dt1,dt2,dt3,dt4,dt5,dt6,dt7,dt8,dt9,dt10)

 

帮助修改。实在不会写。类似表格有10多个,谢谢。

 

 

 

[此贴子已经被作者于2019/10/20 18:57:50编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/20 20:52:00 [只看该作者]

首先没看懂到底要做什么。如果要传递窗口对象这样即可

函数开头
dim e  = args(0)
……其它代码

函数调用

Functions.Execute("加载数据",e,其它参数...)

最后特别注意看看:http://www.foxtable.com/mobilehelp/topics/277.htm,窗口和控件都不能在异步函数里使用的

 回到顶部