TextChanged事件
Dim fdr As DataRow = DataTables("行政区域").Find("[省市] = '" & e.Sender.Text & "'")
If fdr IsNot Nothing Then
e.Form.Controls("TextBox1").Text = fdr("县市")
End If