共54 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6]

标题：如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！

1楼

雨中的泪 发表于：2009/9/17 9:06:00

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

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

2楼

雨中的泪 发表于：2009/9/17 10:20:00

版主帮帮忙，谢谢

3楼

雨中的泪 发表于：2009/9/17 10:42:00

版主帮帮忙，谢谢

4楼

雨中的泪 发表于：2009/9/17 11:07:00

版主帮帮忙，谢谢

5楼

mr725 发表于：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编辑过]

6楼

雨中的泪 发表于：2009/9/17 14:23:00

还是有点问题◎◎◎！！！

7楼

mr725 发表于：2009/9/17 14:27:00

放在 Tables("职务变动人员基础资料查询转移_Table1") 的双击事件中试试？

8楼

雨中的泪 发表于：2009/9/17 15:30:00

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

9楼

雨中的泪 发表于：2009/9/17 15:32:00

放在确定按钮中有些，不能数据转移！！！
还有就是双击后自动打开职务变动数据修改窗口后，显示的数据不指向，刚才转移的数据！！！

10楼

杨浩发表于：2009/9/17 16:58:00

版主帮帮忙

共54 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6]