- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么从数据表中提取符合条件的数据到当前表中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64681)
-- 发布时间：2015/2/27 8:03:00
-- 怎么从数据表中提取符合条件的数据到当前表中
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
数据表为育龄妇女，生成表为孕检名单，想从育龄妇女表中提取数据：条件为子女数＝0和子女数＝1的，再加上女方婚姻状况为再婚或者男方婚姻状况为再婚的对象，把符合的提取过来并显示出来，请老师帮忙下，谢谢
-- 发布时间：2015/2/27 8:37:00
--
用交叉统计http://www.foxtable.com/help/topics/0165.htm
-- 发布时间：2015/2/27 9:16:00
--
怎么写代码
此主题相关图片如下：1.png
-- 发布时间：2015/2/27 9:17:00
--
Dim village As WinForm.ComboBox = e.Form.Controls("单位名称")
village.Combolist = DataTables("总人口").GetCombolistString("单位名称")
Dim t As Table = Tables("孕检名单")
t.DataTable.DataRows.Clear
Dim drs As List(Of DataRow) = DataTables("育龄妇女").Select("单位名称 = \'" & village.Text & "\' And 子女数 = 0 And 子女数 = 1" )
For Each dr As DataRow In drs
If DataTables("育龄妇女").Find("单位名称 = \'" & dr("单位名称") & "\'") Is Nothing Then
Dim r As Row = t.AddNew
r("单位名称") = dr("单位名称")
Dim filter As String = " 单位名称 = \'" & dr("单位名称") & "\'"
r("组名称") = dr("组名称")
r("女方姓名") = dr("女方姓名")
r("男方姓名") = dr("男方姓名")
End If
Next
这个怎么不查询？帮忙改下
-- 发布时间：2015/2/27 9:25:00
--
看2楼可以直接用交叉统计
-- 发布时间：2015/2/27 9:36:00
--
育龄妇女表里，缺少身份证号或其他唯一编号，跨表引用数据的时候，不方便。
-- 发布时间：2015/2/27 9:50:00
--
不是要统计数字，是要名单，麻烦帮忙改下代码
-- 发布时间：2015/2/27 10:01:00
--
Dim t As Table = Tables("孕检名单")
t.DataTable.DataRows.Clear
Dim drs As List(Of DataRow) = DataTables("育龄妇女").Select("单位名称 = \'" & village.Text & "\' And 子女数 = 0 And 子女数 = 1" )
For Each dr As DataRow In drs
If DataTables("育龄妇女").Find("单位名称 = \'" & dr("单位名称") & "\'") Is Nothing Then
Dim r As Row = t.AddNew
r("单位名称") = dr("单位名称")
Dim filter As String = " 单位名称 = \'" & dr("单位名称") & "\'"
r("组名称") = dr("组名称")
r("女方姓名") = dr("女方姓名")
r("男方姓名") = dr("男方姓名")
End If
Nex
你这段代码要写到Textchanged事件