如何通过遍历TextBox简化VB每月首日递增日期赋值代码？

没问题，这事儿很容易解决！你完全可以通过循环遍历TextBox数组来消除那些重复的赋值代码，让逻辑更简洁、后期维护也更省心。

修改后的代码示例 #

Dim dpt As DateTimePicker = DateTimePicker1
' 直接构造当月第一天，比字符串转换更严谨，还能避免区域格式差异问题
Dim day1 As DateTime = New DateTime(dpt.Value.Year, dpt.Value.Month, 1)
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}

' 用循环自动给每个TextBox赋值递增日期
For i As Integer = 0 To textBoxes.Length - 1
    textBoxes(i).Text = day1.AddDays(i).ToString("dd/MM/yyyy") ' 这里可以按需调整日期格式
Next

几个关键优化点 #

• 更严谨的日期初始化：原代码靠字符串转换获取当月第一天，换成New DateTime构造函数更直接，还能避开不同系统区域格式带来的潜在bug。
• 消除重复代码：通过循环变量i自动对应AddDays的参数，再也不用手动写几十行几乎一样的赋值语句了。
• 统一格式控制：在赋值时显式指定日期格式，确保所有TextBox输出的日期格式完全一致，符合你的需求。

这样改完之后，要是后续需要调整TextBox数量或者日期显示格式，只需要修改数组或者格式字符串就行，维护成本低很多。

内容的提问来源于stack exchange，提问作者Raffa b