Foxtable(狐表)用户栏目专家坐堂 → 窗口按钮传递


  共有5660人关注过本帖树形打印复制链接

主题:窗口按钮传递

帅哥哟,离线,有人找我吗?
gohtml
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
窗口按钮传递  发帖心情 Post By:2013/4/9 15:33:00 [只看该作者]

在表A中的 "开始日期" 和"结束日期" 把每天的相应的数据使用窗口按钮 传递到表B 中某些列,只传递一次,传递过的数据窗口提示
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按天数传递.table


[此贴子已经被作者于2013-4-9 15:46:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/9 15:37:00 [只看该作者]

你这说得含糊,是不是说选择某一个行,然后点下按钮.把该行的某列的值 赋值到表B中吗?   最好发个例子.

 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/4/9 15:47:00 [只看该作者]

以下是引用Bin在2013-4-9 15:37:00的发言:
你这说得含糊,是不是说选择某一个行,然后点下按钮.把该行的某列的值 赋值到表B中吗?   最好发个例子.
附件已上传,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/9 15:50:00 [只看该作者]

你是希望传递选中行.还是全部传递呢?

 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/4/9 15:58:00 [只看该作者]

选中的行,假如已经传递过,则弹出对话框提示
[此贴子已经被作者于2013-4-9 15:58:36编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/9 16:02:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按天数传递.table


 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/4/9 16:18:00 [只看该作者]

不行呀,是不是什么地方错了


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/9 16:19:00 [只看该作者]

我这里很正常啊? 怎么不行啊? 你不是想这样吗?

 回到顶部
帅哥哟,离线,有人找我吗?
gohtml
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:107 积分:863 威望:0 精华:0 注册:2013/3/12 12:42:00
  发帖心情 Post By:2013/4/9 16:43:00 [只看该作者]

Dim dt1 As Date = CurrentTable.Current("入住日期")
Dim dt2 As Date = CurrentTable.Current("离店日期")
Dim tp As timespan = dt2 - dt1
For i As Integer = 0 To tp.TotalDays
    Dim dr As DataRow = DataTables("表B").AddNew
    dr("日期") = dt1.AddDays(i)
    dr("间数")=Tables("表A").Current("间数")
    dr("姓名")=Tables("表A").Current("姓名") 
Next



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/9 16:48:00 [只看该作者]

你是想添加的啊.我以为你是直接赋值过去的. 你现在实现了吗?

 回到顶部
总数 12 1 2 下一页