- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期怎么按序列填充？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77007)
-- 发布时间：2015/11/9 16:59:00
-- [求助]日期怎么按序列填充？
2015/11/1 9:30:00
2015/11/1 10:00:00
2015/11/1 10:30:00
2015/11/1 11:00:00
2015/11/1 11:30:00
2015/11/1 12:00:00
2015/11/1 12:30:00
2015/11/1 13:00:00
2015/11/1 15:30:00
2015/11/1 16:00:00
2015/11/1 16:30:00
2015/11/1 17:00:00
2015/11/1 17:30:00
2015/11/1 18:00:00
2015/11/1 18:30:00
2015/11/1 19:00:00
按这个序列怎么往下填充？
-- 发布时间：2015/11/9 17:02:00
--
才代码有啊
http://www.foxtable.com/help/topics/0140.htm
-- 发布时间：2015/11/9 17:03:00
--
Dim st As Date = "2015/11/1 9:30:00"
For Each r As Row In Tables("表A").rows
st = st.AddMinutes(30)
r("第一列") = st
Next
-- 发布时间：2015/11/9 17:08:00
--
以下是引用大红袍在2015/11/9 17:03:00的发言：
Dim st As Date = "2015/11/1 9:30:00"
For Each r As Row In Tables("表A").rows
st = st.AddMinutes(30)
r("第一列") = st
Next
Dim st As Date = "2015/11/1 9:30:00"
For Each r As Row In Tables("表A").rows
st = st.AddMinutes(30)
r("第一列") = st
Next
每天上午从9:30到13:00，下午从15:30到19:00
11月1日完了，自动填充2日的，3日的，求助。
-- 发布时间：2015/11/9 17:13:00
--
Dim st As Date = "2015/11/1 9:30:00"
For Each r As Row In Tables("表A").rows
st = st.AddMinutes(30)
r("第一列") = st
If st.Hour = 13 Then
st = st.AddMinutes(120)
ElseIf st.Hour = 19 Then
st = st.AddDays(1).AddHours(-10)
End If
Next
-- 发布时间：2015/11/9 17:34:00
--
用哪个事件啊
-- 发布时间：2015/11/9 17:34:00
--
以下是引用大红袍在2015/11/9 17:13:00的发言：
Dim st As Date = "2015/11/1 9:30:00"
For Each r As Row In Tables("表A").rows
st = st.AddMinutes(30)
r("第一列") = st
If st.Hour = 13 Then
st = st.AddMinutes(120)
ElseIf st.Hour = 19 Then
st = st.AddDays(1).AddHours(-10)
End If
Next
Dim st As Date = "2015/11/1 9:30:00"
For Each r As Row In Tables("表A").rows
st = st.AddMinutes(30)
r("第一列") = st
If st.Hour = 13 Then
st = st.AddMinutes(120)
ElseIf st.Hour = 19 Then
st = st.AddDays(1).AddHours(-10)
End If
Next
用哪个事件啊
-- 发布时间：2015/11/9 17:35:00
--
daterowadded吗？
-- 发布时间：2015/11/9 17:37:00
--
单独做一个按钮啊。
-- 发布时间：2015/11/9 17:52:00
--
额，还不太会，非常感谢啊。不会做按钮。
