主题：日期选择

表a中有一个开始日期和结束日期，希望能实现开始日期和结束日期不跨月，当选择开始日期是8月的日期的时候，那么结束日期也只能选择8月的日期，不能选择其他的日期，这个控制应该怎么实现。

 

DataColChanging事件

If e.DataCol.Name = "结束日期" AndAlso e.newvalue <> Nothing Then
    If Format(e.DataRow("开始日期"), "yyyyMM") <> Format(e.NewValue, "yyyyMM") Then
        e.cancel = True
    End If
End If

老师，用了你的代码后，结束日期中直接连日期都输入不进去了，不管是不是跨月的日期都输入后，点击其他控件后，结束日期的值就不在了。

看懂代码，先输入开始时间

 

老师，现在是这样的，当已经输入了开始日期，然后输入结束日期的时候进行判断，如果输入的结束日期跨月了，然后给出一个日期跨月的提示，当点击是的时候就不清空选择的值，如果点击否，就清空选择的结束日期。如果开始日期没输入，进行输入结束日期，然后在输入开始日期的时候进行判断，日期是否跨月了，然后也是给出跨月的提示。

If e.DataCol.Name = "结束日期"  Then
    If e.NewValue <> Nothing AndAlso e.DataRow.IsNull("开始日期") = False
        If Format(e.DataRow("开始日期"), "yyyyMM") <> Format(e.NewValue, "yyyyMM") Then
            Dim result As DialogResult =  MessageBox.Show("是否跨月?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.No Then
                e.cancel = True
            End If
        End If
    End If
End If

If e.DataCol.Name = "开始日期"  Then
    If e.NewValue <> Nothing AndAlso e.DataRow.IsNull("结束日期") = False
        If Format(e.DataRow("结束日期"), "yyyyMM") <> Format(e.NewValue, "yyyyMM") Then
            Dim result As DialogResult =  MessageBox.Show("是否跨月?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.No Then
                e.cancel = True
            End If
        End If
    End If
End If

老师，目前在下面这个代码的基础上还得要判断出开始日期不能大于结束日期，如果开始日期大于结束日期，那么就清空。开始日期和结束日期上都需要判断。

If e.DataCol.Name = "结束日期"  Then
    If e.NewValue <> Nothing AndAlso e.DataRow.IsNull("开始日期") = False
        If Format(e.DataRow("开始日期"), "yyyyMM") <> Format(e.NewValue, "yyyyMM") Then
            Dim result As DialogResult =  MessageBox.Show("是否跨月?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.No Then
                e.cancel = True
            End If
        End If
    End If
End If

If e.DataCol.Name = "开始日期"  Then
    If e.NewValue <> Nothing AndAlso e.DataRow.IsNull("结束日期") = False
        If Format(e.DataRow("结束日期"), "yyyyMM") <> Format(e.NewValue, "yyyyMM") Then
            Dim result As DialogResult =  MessageBox.Show("是否跨月?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result = DialogResult.No Then
                e.cancel = True
            End If
        End If
    End If
End If

那你就加上呗，如

 

If e.DataRow("开始日期") > e.NewValue Then

    msgbox("结束日期不能早于开始日期")

    e.Cancel = True

Else

   If Format(e.DataRow("开始日期"), "yyyyMM") <> Format(e.NewValue, "yyyyMM") Then