- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121144)
-- 发布时间：2018/6/29 21:57:00
-- [求助]自动赋值
老师好，
组合框（街道）获取外部数据后"省辖市、地级市、区县市"能从外部数据表中自动获取数据并赋值给对应的文本框中。
此主题相关图片如下：图像 070.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:赋值.rar |
-- 发布时间：2018/6/29 22:33:00
--
组合框SelectedIndexChanged事件
Dim khhcs As New SQLCommand
Dim kh As DataTable
khhcs.ConnectionName = "赋值"
khhcs.CommandText = "SELECT * From {列表项目} where 街道=\'" & e.Sender.Text & "\'"
kh = khhcs.ExecuteReader
e.Form.Controls("TextBox1").text = kh.DataRows(0)("省辖市")
-- 发布时间：2018/6/29 22:59:00
--
老师，不能保存在文本框中。
-- 发布时间：2018/6/29 23:09:00
--
Dim khhcs As New SQLCommand
Dim kh As DataTable
khhcs.ConnectionName = "赋值"
khhcs.CommandText = "SELECT * From {列表项目} where 街道=\'" & e.Sender.Text & "\'"
kh = khhcs.ExecuteReader
Tables("明细表").Current("省辖市") = kh.DataRows(0)("省辖市")
-- 发布时间：2018/6/30 9:36:00
--
老师，我不想直接赋值给明细表。
-- 发布时间：2018/6/30 10:32:00
--
1、不能使用绑定
-- 发布时间：2018/6/30 22:00:00
--
老师好，文本框的“区县市、街道”值能重新赋值给外部数据“行政区域”表，根据上一级文本框值”地级市”在”行政区”域表新增行并对应赋值。
此主题相关图片如下：图像 1.png
-- 发布时间：2018/7/1 17:42:00
--
1、为什么不把表格弄出来？
2、增加行，参考 http://www.foxtable.com/webhelp/scr/2490.htm
-- 发布时间：2018/7/2 20:31:00
--
老师，下面代码设置后只返回了一个列字段"省辖市"。
Select Case e.DataCol.name
Case "基本信息_省辖市"
Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = \'" & e.OldValue & "\'")
If dr Is Nothing Then
dr = DataTables("行政区域").AddNew()
dr("省辖市") = e.DataRow("基本信息_省辖市")
dr("地级市") = e.DataRow("基本信息_地级市")
dr("区县市") = e.DataRow("基本信息_区县市")
Else
dr("省辖市") = e.DataRow("基本信息_省辖市")
End If
Case "地级市","区县市"
Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = \'" & e.DataRow("基本信息_省辖市") & "\'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
-- 发布时间：2018/7/2 20:38:00
--
……
Case "基本信息_省辖市"
Dim dr As DataRow = DataTables("行政区域").Find("省辖市 = \'" & e.OldValue & "\'")
If dr Is Nothing Then
dr = DataTables("行政区域").AddNew()
End If
dr("省辖市") = e.DataRow("基本信息_省辖市")
dr("地级市") = e.DataRow("基本信息_地级市")
dr("区县市") = e.DataRow("基本信息_区县市")
……