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

以下是引用采菊东篱下在2021/3/22 23:27:00的发言：
这是两个表共用一个窗口，原来的表是录入表，双击缴费情况表的行弹出的是查询表，允许修改，我知道日期控件为什么错了，改为这样红色标注报错，没这样写法，修改后的日期跟修改前的日期比较才能判断是否超出，修改前的日期怎写？

Dim yzrq As WinForm.DateTimePicker = e.Sender 'rq是日期控件

Dim d As Date = yzrq.Value

Dim dj As Date = yzrq.OldValue

Dim y As Integer = dj.Year

Dim m As Integer = dj.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("修改的日期不能超出已保存单号所属月份","提示")

    End If

End If

[此贴子已经被作者于2021/3/23 0:48:33编辑过]

控件没有办法获取旧值，只能弹个提示给用户

dim dh as string = Forms("月租收费").Controls("dh").text

DataTable不存在顺序这种东西，2个DataTable的顺序几乎不可能是一致的。其中一个改为使用Find查询定位

其中一个改为使用Find查询定位

"月租收费_Table1"和"缴费情况"的行通过什么数据唯一关联的？Find要使用这个关联列查询

每一行的单号都不一样才叫唯一。

俺没有说谁的水平有问题，只是说不是表面看到的简单的123步就能做出的功能。就算是把一个软件给我操作，也没有办法短时间就能完全模仿别人的功能开发出一套功能一样的软件。如果这么容易，用友金蝶都不用活，满大街都是程序员了。