- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口按钮传递 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31060)
-- 发布时间：2013/4/9 15:33:00
-- 窗口按钮传递
在表A中的 "开始日期" 和"结束日期" 把每天的相应的数据使用窗口按钮 传递到表B 中某些列,只传递一次,传递过的数据窗口提示
[此贴子已经被作者于2013-4-9 15:46:09编辑过]
-- 发布时间：2013/4/9 15:37:00
--
你这说得含糊,是不是说选择某一个行,然后点下按钮.把该行的某列的值 赋值到表B中吗? 最好发个例子.
-- 发布时间：2013/4/9 15:47:00
--
以下是引用Bin在2013-4-9 15:37:00的发言：
你这说得含糊,是不是说选择某一个行,然后点下按钮.把该行的某列的值 赋值到表B中吗? 最好发个例子.
你这说得含糊,是不是说选择某一个行,然后点下按钮.把该行的某列的值 赋值到表B中吗? 最好发个例子.
附件已上传,谢谢
-- 发布时间：2013/4/9 15:50:00
--
你是希望传递选中行.还是全部传递呢?
-- 发布时间：2013/4/9 15:58:00
--
选中的行,假如已经传递过,则弹出对话框提示
[此贴子已经被作者于2013-4-9 15:58:36编辑过]
-- 发布时间：2013/4/9 16:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按天数传递.table |
-- 发布时间：2013/4/9 16:18:00
--
不行呀,是不是什么地方错了
-- 发布时间：2013/4/9 16:19:00
--
我这里很正常啊? 怎么不行啊? 你不是想这样吗?
-- 发布时间：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
-- 发布时间：2013/4/9 16:48:00
--
你是想添加的啊.我以为你是直接赋值过去的. 你现在实现了吗?