主题：窗口刷新代码

测试了一下，写到 SelectedIndexChanged 事件可以。

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

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

       ......

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

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

没看懂你什么意思。要查什么就直接find

 

Dim dr As DataRow = DataTables("基本信息").find(条件)

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

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

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

 不明白你什么意思，条件自己合成。

 

Dim dr As DataRow = DataTables("基本信息").find(条件)

老师：我这个项目中

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

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

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

代码这样写

 

vars("idx") = -3
Dim t As Table = Tables("大委托.小委托")
Do While vars("idx")+3 < t.Rows.count
    e.Form.Controls("Button2").performClick
    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    doc.Print()
Loop

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

 

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

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

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

 

另一个问题，没发布的时候可以对准？

 

你可以用代码设置页面的 http://www.foxtable.com/help/topics/1602.htm

 

没发布时是对准了的，不知道啥原因，几乎每个用户用的时候总有点偏差，也有个别是因纸张印刷不是同批次的，规格有点差异造成。所以，每个都会去试用并调整，很麻烦。要是象“四五”打印软件那样，设置一个偏移量让用户自己调整，就方便多了。