Dim fi As String
If e.Form.Controls("VTextfi").text > "" Then
Fi = "se lect * from {" & e.Form.Controls("Txt数据视图").text & "} where " & e.Form.Controls("VTextfi").text
Else
Fi = "se lect * from {" & e.Form.Controls("Txt数据视图").text & "} "
End If
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
tb.Fill(fi,"Zc_Data",True)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tb.SetColVisibleWidth(e.Form.Controls("Txt显示列").text)
dt.DataCols.Add("sl",Gettype(Integer),"[Itid] / [Itid]")
Dim Layt As WinForm.LayersTree = e.Form.Controls("LayersTree1")
Dim st As New LayerTreeSetting
st.PathCol = "料号"
st.TextCol = "名称"
st.ValueCol = "sl"
st.Separator = "."
st.GridTree = True
st.Subtotal = True
st.IncludeSub = False
'st.Unique = False '如果是项目树,请删除此行
Layt.BuildFilterTree(tb, st)
tb.ShowGridTree(st)
此主题相关图片如下：20220510.png
加好友 
发短信
Post By：2022/5/10 21:34:00 [显示全部帖子]
