If e.DataCol.Name = "省市"
Orelse e.DataCol.Name = "县市"
Then
Dim cmd As New SQLCommand
Dim dt As
DataTable
Dim dr As
DataRow = e.DataRow
cmd.ConnectionName = "行政区域"
cmd.CommandText = "SELECT * From {行政区域} Where [省市] = '" & dr("省市") & "' And [县市] = '" & dr("县市") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0
Then
Forms("窗口1").Controls("TextBox1").Text = dt.DataRows(0)("区号")
Forms("窗口1").Controls("TextBox2").Text = dt.DataRows(0)("邮编")
Else
Forms("窗口1").Controls("TextBox1").Text = Nothing
Forms("窗口1").Controls("TextBox2").Text = Nothing
End
If
End
If