主题：帮忙改成函数

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多个，谢谢。