- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]帮忙修改一下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46558)
-- 发布时间：2014/2/25 16:20:00
-- [求助]帮忙修改一下
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自动输入的例子，是在数据表中操作的，麻烦大家帮我改成编辑框接收，谢谢
-- 发布时间：2014/2/25 16:24:00
--
If dt.DataRows.Count > 0 Then
e.form.conrols("textbox1").text = dt.DataRows(0)("区号")
e.form.conrols("textbox2").text = dt.DataRows(0)("邮编")
Else
dr("区号") = Nothing
dr("邮编") = Nothing
End If
-- 发布时间：2014/2/25 16:27:00
--
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
-- 发布时间：2014/2/25 16:31:00
--
如果TextBox绑定到列了，要注意：
http://www.foxtable.com/help/topics/2436.htm
-- 发布时间：2014/2/25 16:45:00
--
之前就是这样写的，我没有绑定列，但是报错，看看图
此主题相关图片如下：qq图片20140225164416.jpg
-- 发布时间：2014/2/25 16:46:00
--
错误提示已经明确告诉你了,不存在这个列.
-- 发布时间：2014/2/25 16:50:00
--
哎呀，不好意思，我怎么说一直不行呢，原来打错了列名称的一个字符了，谢谢
这个错误提示容易理解错误，呵呵