表的双击事件:仓库的平面图点击单元格的仓位比如:Y18;这句代码报错------ r.(t.Cols(t.ColSel)).Substring(0,1) = "Y"
'Dim r As Row = Tables("一楼平面图").Current
'Dim t As Table = Tables("一楼平面图")
'If r.Isnull(t.Cols(t.ColSel)) = False AndAlso r.(t.Cols(t.ColSel)).Substring(0,1) = "Y" Then
'DataTables("原料坯布仓库平面图_table1").loadfilter = "仓位 = '" & r(t.Cols(t.ColSel)) & "'"
'DataTables("原料坯布仓库平面图_table1").Load()
'DataTables("原料坯布仓库平面图_table2").loadfilter = "仓位 = '" & r(t.Cols(t.ColSel)) & "'"
'DataTables("原料坯布仓库平面图_table2").Load()
'Dim tab As winform.tabcontrol = e.form.controls("tabcontrol1")
'tab.selectedindex = 2
'End If