老师，我设计的单据套打基本完成，但还有个问题，就是在窗口中按日期筛选后，窗口数据不会刷新，要重启窗口数据才会刷新，要怎样写代码，才能在筛选日期后自动刷新窗口中的数据？请老师指教！

此主题相关图片如下：窗口图片.png

如图，选择日期后，窗口中的数据不会刷新。

是这样的，但不行。

Dim cmb As WinForm.ComboBox = e.form.Controls("筛选日期")
cmb.ComboList = DataTables("小委托").GetComboListString("日期")

vars("idx") = 0
Dim t As Table = Tables("大委托.小委托")
Dim count As Integer = 0
Dim sum As Double = 0
For i As Integer = 1 To 3
    If vars("idx") >= 0 AndAlso vars("idx") + i <= t.Rows.count Then
        Dim r As Row = t.Rows(vars("idx") + i - 1)
        e.Form.controls("txt_l" & i & "_01").Text = r("项目摘要_第一行")
        For j As Integer = 2 To 11
            e.Form.controls("txt_l" & i & "_" & Format(j, "00")).Text = GetDigit(r("金额合计"),9-j)
        Next
        e.Form.Controls("txt_l" & i & "_12").Text = r("收款单位_名称")
        e.Form.Controls("txt_l" & i & "_13").Text = r("收款单位_开户行")
        e.Form.Controls("txt_l" & i & "_14").Text = r("收款单位_账号")
        count += r("附件张数")
        sum += r("金额合计")
    Else
        e.Form.controls("txt_l" & i & "_01").Text = Nothing
        For j As Integer = 2 To 11
            e.Form.controls("txt_l" & i & "_" & Format(j, "00")).Text = Nothing
        Next
        e.Form.Controls("txt_l" & i & "_12").Text = Nothing
        e.Form.Controls("txt_l" & i & "_13").Text = Nothing
        e.Form.Controls("txt_l" & i & "_14").Text = Nothing
    End If
   
Next
e.Form.Controls("TextBox34").Text = count
For j As Integer = 1 To 10
    e.Form.controls("lbl_" & Format(j, "00")).Text = GetDigit(sum,8-j)
    e.Form.controls("lbl_d" & Format(j, "00")).Text = iif(GetDigit(sum,8-j,"")="零", Nothing, CUNum(val(GetDigit(sum,8-j,""))))
Next

  
   
    Dim v As String ="默认打印机"
    For Each p As String In InstalledPrinters
        v = v &"|"& p
    Next
    e.Form.Controls("选择打印机").combolist = v

前两行就是筛选日期的代码

Dim cmb As WinForm.ComboBox = e.form.Controls("筛选日期")
cmb.ComboList = DataTables("小委托").GetComboListString("日期")

那你把afterLoad事件的代码写到控件的TextChanged事件去。

不行，就上传具体实例。