如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！

共有28985人关注过本帖树形打印复制链接主题：如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！ 发帖心情

Post By：2009/9/17 9:06:00 [只看该作者]

1、在<职务变动基础信息>表的“职务变动人员基础资料查询转移”窗口中用TABLE控件制作了一个数据查询转移窗口，使用了复选框
达到目的：
已经实现了查询，如何实现双击查询到的某行数据<及复选框打上勾的行点击确定按钮>后，先在<职务变动基础信息>表中核对是否已有该行数据，如果没有数据就从<调资基础数据>表中转移到<职务变动基础信息>！！！
谢谢

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

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2009/9/17 10:20:00 [只看该作者]

版主帮帮忙，谢谢

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

公共代码库系统 发帖心情

Post By：2009/9/17 10:42:00 [只看该作者]

版主帮帮忙，谢谢

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2009/9/17 11:07:00 [只看该作者]

版主帮帮忙，谢谢

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

AfterLoad 时把树的复选框选中怎么处理？ 发帖心情

Post By：2009/9/17 12:52:00 [只看该作者]

Dim r As Row = Tables("职务变动人员基础资料查询转移_Table1").current
Dim dr As DataRow = DataTables("职务变动基础信息").Find("[姓名] = '" & r("姓名") & "'")
if Tables("职务变动人员基础资料查询转移_Table1").current.Checked = True
    if dr IsNot Nothing then
        MessageBox.Show("变动基础信息中已经有此人了!", "提示")
    else
        Dim r1 As Row = tables("职务变动基础信息").Rows.AddNew()
        r1("单位名称") = r("单位名称")
        r1("姓名") = r("姓名")
        r1("身份证号") = r("身份证号")
        r1("性别") = r("性别")
        r1("出生日期") = r("出生时间")
        r1("参加工作时间") = r("参加工作时间")
        r1("变动前职务") = r("职务")
    end if
end if

测试有点问题重新修改了上面代码～

[此贴子已经被作者于2009-9-17 13:16:47编辑过]