主题：SQLTable动态表的绑定与设置显示行

With Tables("月租收费_Table1")

    .DataTable.GlobalHandler.AfterEdit = True

End With

依然不行！

Dim yzdh As WinForm.TextBox = e.Form.Controls("dh")'dh是单号控件

Dim di As String = yzdh.Value 'di单号控件中的变量

Dim yzrq As WinForm.DateTimePicker = e.Form.Controls("rq") 'rq是日期控件

Dim d As Date = yzrq.Value

Dim y As Integer = d.Year

Dim m As Integer = d.Month

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim fd As Date = New Date(y,m,1) '获得该月的第一天

Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天

Dim c As Integer = DataTables("缴费情况").SQLCompute("Count([车牌号码])","[单号] = '" & Forms("月租收费").Controls("dh").Value & "'")

If c > 0 Then

    If d < fd Or d > ld Then

        e.Cancel = True '如果是,取消操作

        MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")

    ElseIf e.DataCol.Name = "车牌号码" AndAlso e.DataRow.IsNull("车牌号码") = False Then

        e.Cancel = True

    End If

End If

这段代码写在月租收费窗口的DataColChanging事件，修改车牌号码时，其依然被修了，在而且修改月租收费窗口的日期并无弹窗提示。