Question

我有这段代码可以将日期添加到每月的第一天。有人可以帮助我通过遍历文本框并在每个框上添加额外的一天来缩短这段时间吗？

Dim dpt As DateTimePicker = DateTimePicker1
Dim day1 As DateTime = dpt.Value.ToString("01/MM/yyyy")
Dim textBoxes() As TextBox = {TextBox187, TextBox188, TextBox189, TextBox190, TextBox191,TextBox192, TextBox193, TextBox194, TextBox195, TextBox196, TextBox197, TextBox198, TextBox199, TextBox200, TextBox201, TextBox202, TextBox203, TextBox204, TextBox205, TextBox206, TextBox207, TextBox208, TextBox209, TextBox210, TextBox211, TextBox212, TextBox213, TextBox214, TextBox215, TextBox216, TextBox217}

textBoxes(0).Text = day1
textBoxes(1).Text = day1.AddDays(1)
textBoxes(2).Text = day1.AddDays(2)
textBoxes(3).Text = day1.AddDays(3) etc..

谢谢

Answer 1

For循环应适合此处：

For i = 0 To textBoxes.Length - 1
  textBoxes(i).Text = day1.AddDays(i)
Next

使用日期时间循环遍历文本框

1 个答案: