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

Select Case e.StripItem.Name

    Case "保存" '保存代码

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

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

            Return

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

            Return

        Else

            For Each tr As DataRow In DataTables("月租收费_Table1").Select("[车牌号码] is not null")

                Dim dr As DataRow = DataTables("缴费情况").SQLFind("[单号] = '" & Forms("月租收费").Controls("dh").text & "' And [车牌号码] = '" & tr("车牌号码") & "' And ([已审核] = False Or [已审核] Is null)") '将窗口上的数据刷新替换保存到缴费情况表上,

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

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

                dr("备注") = tr("备注")

                dr("前缀") = "YZ"

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

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

                dr("缴费_月租_缴费月数") = tr("缴费_月租_缴费月数")

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

dr.save

end if

            Next

DataTables("缴费情况").filter = ""

            DataTables("缴费情况").Load