- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 日期 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160259)
-- 发布时间：2021/1/26 18:00:00
-- 日期
父表=当月天数31天
子表自动増加31行然后子表日期列自动生成1日-31日日期
用什么办法实现
-- 发布时间：2021/1/26 20:11:00
--
Dim d As Date = Date.Today
Dim dr As DataRow
For i As Integer = 1 To Date.DaysInMonth(d.Year,d.Month)
dr = DataTables("表A").AddNew
dr("日期") = new Date(d.Year,d.Month,i)
Next
-- 发布时间：2021/1/26 21:18:00
--
此主题相关图片如下：批注 2021-01-26 211754.png
-- 发布时间：2021/1/26 22:11:00
--
换个其他名称，d这个变量名称在这个事件里重复了
-- 发布时间：2021/1/27 14:35:00
--
父表有，年，月，本月天数，三个列，
子表増加行跟着本月天数加
日期跟着父表年，月 自动生成1日-31日日期
Dim d As Date = Date.Today Dim dr As DataRow For i As Integer = 1 To Date.DaysInMonth(d.Year,d.Month) dr = DataTables("表A").AddNew dr("日期") = new Date(d.Year,d.Month,i) Next |
-- 发布时间：2021/1/27 14:46:00
--
dim r as row = tables(xxx).current
Dim dr As DataRow
For i As Integer = 1 To r("天数")
dr = DataTables("表A").AddNew
dr("日期") = new Date(r("年"),r("月"),i)
Next
-- 发布时间：2021/1/27 17:42:00
--
此主题相关图片如下：批注 2021-01-27 173900.png
排班1日=上午，2日=下午，有什么办法只输1日=上午，后面2日自动输入=下午，3日=上午
-- 发布时间：2021/1/28 8:37:00
--
遍历所有行，行号为单数就赋值上午，否则赋值下午
-- 发布时间：2021/1/28 9:43:00
--
什么弄，要跟着1日变动，有的是上午有的是下午
[此贴子已经被作者于2021/1/28 9:43:42编辑过]
-- 发布时间：2021/1/28 9:56:00
--
比如
tables("表A").sort = "日期"
for i as integer=0 to tables("表A").rows.count - 1
if i mod 2 = 0 then
tables("表A").rows（i）("排班") = "上午"
else
tables("表A").rows（i）("排班") = "下午"
end if
next