- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动输入月份 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117575)
-- 发布时间：2018/4/15 10:17:00
-- 自动输入月份
根据“e.Form.Controls("开始日期").Value”的年，在“月工作天数”表新增12行，在“月份”列自动输入2018-01到2018-12，请老师指教！谢谢
Dim dr As DataRow
Dim Month As String
For i As Integer = 1 To 12
dr = DataTables("月工作天数").AddNew
Month =e.Form.Controls("开始日期").Value.Year & "-01"
dr("月份") = Month.format(Month +1,"00")
Next
Dim Month As String
For i As Integer = 1 To 12
dr = DataTables("月工作天数").AddNew
Month =e.Form.Controls("开始日期").Value.Year & "-01"
dr("月份") = Month.format(Month +1,"00")
Next
-- 发布时间：2018/4/15 10:29:00
--
代码写在何处？
-- 发布时间：2018/4/15 10:31:00
--
写在窗口，保存按钮
-- 发布时间：2018/4/15 10:55:00
--
Dim sd As WinForm.DateTimePicker = e.Form.Controls("开始日期")
Dim d As Integer = sd.Value.Year
Dim t As Table = Tables("月工作天数")
For i As Integer = 1 To 12
Dim r As Row = t.AddNew()
r("月份") = d & "-" & Format(i,"00")
Next
此主题相关图片如下：搜狗截图20180415105326.png
[此贴子已经被作者于2018/4/15 10:59:03编辑过]
-- 发布时间：2018/4/15 11:01:00
--
谢谢