Dim r As Row = Tables("一楼平面图").Current
Dim t As Table = Tables("一楼平面图")
If r.Isnull(t.ColSel) = False AndAlso r.(t.ColSel).Substring(0,1) = "Y" Then
DataTables("原料坯布仓库平面图_table1").loadfilter = "仓位 = '" & r(t.ColSel) & "'"
DataTables("原料坯布仓库平面图_table1").Load()
DataTables("原料坯布仓库平面图_table2").loadfilter = "仓位 = '" & r(t.ColSel) & "'"
DataTables("原料坯布仓库平面图_table2").Load()
Dim tab As winform.tabcontrol = e.form.controls("tabcontrol1")
tab.selectedindex = 2
End If
加好友 
发短信
Post By：2016/9/30 14:24:00 [显示全部帖子]
