甜版主看看这样可行否？
在全局代码中定义一个线程“XC001”
Public Sub XC001(ByVal cr As Object,ByVal s As Object)
functions.Execute("JS01", r)
End Sub
Public Sub XC002(ByVal cr As Object,ByVal s As Object)
functions.Execute("JS02", r)
End Sub
再定义两个表
public DTA as datatable
public DTB as datatable
然后在自定义函数中定义一个函数“JS01”
dim r as row = args(0)
dim s as integer = args(1)
dim dt as datatable
c m d . C o n n e c t i o n N a m e = " 外部数据库连接名 "
cmd.CommandText = "计算表DTA的SQL语句"
dtA = cmd.ExecuteReader()
然后在自定义函数中定义一个函数“JS02”
dim r as row = args(0)
dim s as integer = args(1)
dim dt as datatable
c m d . C o n n e c t i o n N a m e = " 外部数据库连接名 "
cmd.CommandText = "计算表DTB的SQL语句"
dtB = cmd.ExecuteReader()
在命令窗口开启多线程计算
dim r as row = tables("XXX").rows(0)
dim s1 as integer = 1
vars("数量A计算完成") = false
Dim t1 As Threading.Thread ＝ New Threading.Thread(AddressOf XC001)
t1.Start(r,s1)
vars("数量1计算完成") = true
'同理计算数量2
dim s2 as integer = 2
vars("数量B计算完成") = false
Dim t2 As Threading.Thread ＝ New Threading.Thread(AddressOf XC002)
t2.Start(r,s2)
vars("数量2计算完成") = true
if vars("数量1") ＝ true andalso vars("数量2") ＝ true then
'执行代码，因为这段代码要利用数量1和数量2的计算结果
end if
[此贴子已经被作者于2019/3/14 21:48:01编辑过]
加好友 
发短信
Post By：2019/3/13 23:18:00 [只看该作者]
