[求助]新增行同时填入选定内容，带条件提取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新增行同时填入选定内容，带条件提取数据

共有11566人关注过本帖树形打印复制链接主题：[求助]新增行同时填入选定内容，带条件提取数据

yanzhen2010

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

[求助]新增行同时填入选定内容，带条件提取数据 发帖心情

Post By：2011/7/30 16:59:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:复件 zysf.rar

长期医嘱表

怎么没人回答啊，能不能给个完整代码啊？

“狐狸老爸”总是让看帮助，能解决的话就不学习了。

以前注册了3套易表，做的几个简单的系统，运行很好。其中包括“住院收费系统”。修改公式也比较得心应手。

这次是想把“住院收费系统”改版为狐表版的，可难度很大啊。

[此贴子已经被作者于2011-7-31 9:28:30编辑过]

yanzhen2010

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

Post By：2011/7/30 19:40:00 [显示全部帖子]

谢谢各位朋友，由于本人是新手，对有些内容是懂非懂。需要各位帮助。昨天发的文件是有问题。

但是第二个问题：固定追加提取的问题没有解决。

yanzhen2010

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

Post By：2011/7/31 9:20:00 [显示全部帖子]

谢谢老大，但你给的代码不是我需要的。我的“追加项目表”对数据进行了分组，每组包含多条数据，你给的代码只是对新增的一行填入，我需要的是追加，不是查找。我估计要使用fill函数。追加就是把“追加项目表”对应的分组数据提取出来并填入到当前表“长期医嘱”，同时填入“住院号”、“日期”。

追加时新增行，行数由每组包含的数据条数决定。

[此贴子已经被作者于2011-7-31 9:24:03编辑过]

yanzhen2010

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

Post By：2011/7/31 10:58:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-7-31 8:30:00的发言：

第二个问题：

Dim cm4 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
If cm4.Value IsNot ntohing Then
    Dim dr As DataRow = DataTables("追加项目").Find("项目名称 ='" & cmb.Value & "'")
    If dr IsNot Nothing Then
        Tables("长期医嘱").Current("接收列的名称") = dr("拼音码")
    End If
End If

dim f As New Filler
f.SourceTable = DataTables("追加项目") '指定数据来源
f.SourceCols = "拼音码,项目名称" '指定数据来源列
f.DataTable = DataTables("长期医嘱") '指定数据接收表
f.DataCols = "拼音码,项目名称" '指定数据接收列
f.Fill()

现在的问题是Filter的填充条件是列表框选定的条件（cm4.Value ）

yanzhen2010

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：1564 威望：0 精华：0 注册：2011/7/20 21:00:00

Post By：2011/7/31 11:07:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-7-31 9:30:00的发言：

我不是很懂你的意思，无法回答。

不过上面的代码已经告诉你如何根据输入的追加类别取得对应的拼音码，接下来将这个拼音码写入到什么地方，应该不是难事吧。

不是根据输入的追加类别取得对应的拼音码，这样和重置列没有区别，是相当于fill（易表中的appendfor）。

大致如下：

现在的问题是Filter的填充条件是列表框选定的条件（cm4.Value ）

填入后住院号是空值，如果ComboBox1（住院号）不为空的话，同时填入住院号。

下一主题 >> << 上一主题

主题：[求助]新增行同时填入选定内容，带条件提取数据