以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮忙改成函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142183)
--  作者：keli0917
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2019/10/20 20:52:00
--  
首先没看懂到底要做什么。如果要传递窗口对象这样即可

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

函数调用

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

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