- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4355)
-- 发布时间：2009/9/17 9:06:00
-- 如何让TABLE控件中查询到数据转移到，其他表中，谢谢！！！
1、在<职务变动基础信息>表的“职务变动人员基础资料查询转移”窗口中用TABLE控件制作了一个数据查询转移窗口，使用了复选框
达到目的：
已经实现了查询，如何实现双击查询到的某行数据<及复选框打上勾的行点击确定按钮>后，先在<职务变动基础信息>表中核对是否已有该行数据，如果没有数据就从<调资基础数据>表中转移到<职务变动基础信息>！！！
谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/9/17 10:20:00
--
版主帮帮忙，谢谢
-- 发布时间：2009/9/17 10:42:00
-- 公共代码库系统
|
版主帮帮忙，谢谢 |
-- 发布时间：2009/9/17 11:07:00
--
|
-- 发布时间：2009/9/17 12:52:00
-- AfterLoad 时把树的复选框选中怎么处理？
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编辑过]
-- 发布时间：2009/9/17 14:23:00
--
还是有点问题◎◎◎！！！
-- 发布时间：2009/9/17 14:27:00
--
放在 Tables("职务变动人员基础资料查询转移_Table1") 的双击事件中试试？
-- 发布时间：2009/9/17 15:30:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:rsgzglxt.rar |
-- 发布时间：2009/9/17 15:32:00
--
放在确定按钮中有些，不能数据转移！！！
还有就是双击后自动打开职务变动数据修改窗口后，显示的数据不指向，刚才转移的数据！！！
-- 发布时间：2009/9/17 16:58:00
--
版主帮帮忙