主题：日期选择

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.DataRow("开始日期") > e.NewValue Then

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

    e.Cancel = True

Else

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