If TypeOf e.Sender Is WinForm.Label Then '如果单击的是标签
If e.Sender.Name.ToLower.StartsWith("sh") Then '而且名称是以sh开头
Dim sh As String = e.Sender.Name.SubString(2) '获取省份
'Dim ps As Integer = Tables("监造物资明细表").FindRow("监造地 = '" & sh & "'") '找出此省份所在行的位置
'If ps >= 0 Then '如果找到
Tables("监造物资明细表").Filter = "[监造地] = sh"
'End If
End If
End If
我在窗口的CLICK中,想设置成点击地图的某个省会城市,就可以根据选择的省来筛选出表"监造物资明细表"中在该省会的全部明细,我似乎觉得Tables("监造物资明细表").Filter = "[监造地] = sh"语句不对,实际也确实无法筛选,请高手指点一下问题在那里?
我是在按照Casestudy 例子在依葫芦画瓢在做。