编写 SelectedIndexChanged 事件
Dim bh As String = DataTables("客户").Compute("Max(编号)", "区域 = '" & e.sender.Text & "'")
msgbox(bh)