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

红色标的代码有错了

Select Case e.StripItem.Name

    Case "保存" '保存代码

        Dim drs As List(of DataRow) = DataTables("缴费情况").SQLSelect("[单号] = '" & Forms("月租收费").Controls("dh").text & "' And ([已审核] = False Or [已审核] Is null)")'定义缴费情况表单号等于窗口控件上的单号?且未审核的行.

        If e.Form.Controls("rq").text = "" Then'当日期为空取消保存操作

            messagebox.show("请选择日期")

            Return

        ElseIf Tables("月租收费_Table1").Compute("Count([车牌号码])") = 0 Then'当窗口中的行为空取消保存操作

            Return

        ElseIf drs.count > 0 Then'当定义的行单号等于窗口控件上的单号且未审核的行数大于0,即单号相同的数据已存在

            For Each dr As DataRow In drs'将窗口上的数据刷新替换保存到缴费情况表上,

                Dim trs As List(of DataRow) = DataTables("月租收费_Table1").Select("[车牌号码] is not null")

                For i As Integer = 1 To trs.count - 1

                    dr("日期") = e.Form.Controls("rq").text

                    dr("单号") = e.Form.Controls("dh").text

                    dr("分类") = DataTables("分类").DataRows(0)("分类")

                    dr("车牌号码") = trs(i)("车牌号码")

                    dr("备注") = trs(i)("备注")

                    dr("前缀") = "YZ"

                    dr("缴费_月租_起计日期") = trs(i)("缴费_月租_起计日期")

                    dr("缴费_月租_止计日期") = trs(i)("缴费_月租_止计日期")

                    dr("缴费_月租_缴费月数") = trs(i)("缴费_月租_缴费月数")

                    dr("缴费_月租_月租单价") = trs(i)("缴费_月租_月租单价")

                Next

            Next

            DataTables("缴费情况").SQLUpdate(drs)'保存数据