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
dr("区号") = dt.DataRows(0)("区号")
dr("邮编") = dt.DataRows(0)("邮编")
Else
dr("区号") = Nothing
dr("邮编") = Nothing
End
If
End
If
这个利用SQL自动输入的例子,是在数据表中操作的,麻烦大家帮我改成编辑框接收,谢谢