主题：窗口刷新代码

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

就是设计了一个窗口，其中有一个控件用于按日期筛选表各行，表中数据改变了，但窗口中的数据不能及时刷新。

此主题相关图片如下：窗口图片.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("日期")

还是不行，知道你下班了，但我还是传上来你明天上班时帮我看一下。主要是大委托窗口的问题。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:piao据打印.table

，顺便帮我测试一下，我准备发布了。谢谢！

老师：我昨天上传了项目文件，请你帮我看一下怎样修改，同时再帮我看一下报账单窗口afterclose事件中：

      fdr("附件张数") = DataTables("报账单").Compute("sum(张数小计)", filter)
     

       ......

      fdr("统管会计") = "任天宇"

这几行要从基本信息表中取值，该怎样改代码

就是：fdr("收款单位_名称") = "基本信息表中的"单位名称
    fdr("收款单位_账号") = "基本信息表中的"对应的账号

   fdr("收款单位_开户行") = "基本信息表中的"对应的开户行

即：取基本信息表中对应列单元格的值。

老师：我这个项目中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单机关幼儿园（新）.foxdb

如何实现全部打印，我试着把“下一页”中的代码加到全部打印的代码后面，只能打印出单张后取出下一页的数据就停止了，如何能自动循环，实现连续打印呢？
开发者密码“999”

谢谢，还有两个问题：一、“打印选定行”行吗？二、“小委托编号”后三个控件只取“月”“编号”行吗？也就是如“6-1、2、3”这样的就好了。

 

另：想问一下，项目发布出去，用户套打时总是难得对位对准，有没有办法让用户自动调整上下左右偏移呢？