说明项目打开的时候关联表已经打开了
Dim nd As WinForm.TreeNode
Dim dt As DataTable
Dim sql As String
Dim je1,je2 As Double
Dim ndtext As String
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
sql = CExp("sele ct * fr om t1 wh ere projectID ='{0}' ",_ProjectID)
dt = Functions.Execute("GetTableBySQL",sql)
tr.StopRedraw()
tr.Nodes.Clear
If dt IsNot Nothing Then
je2 = dt.compute("sum(g2float)")
End If
tr.ResumeRedraw()