主题：实现“入库单在保存时自动生成会计凭证”

 

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

点击浏览该文件:管理项目3 (1).table

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

点击浏览该文件:管理项目3 (1) (1).table

参考

 

Dim dt As DataTable = DataTables("例子一")
Dim fdr As DataRow = dt.Find("日期 < #" & e.Form.controls("StartDate").value & "#", "_sortkey desc, _Identify desc")
msgbox(fdr("日期"))

 

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

点击浏览该文件:出库单价.table

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

点击浏览该文件:出库单价 (1).table

 我测试没问题。就例子说明，如何不正确，正确应该是多少？

 如果需要显示为2位小数，可以设置列 http://www.foxtable.com/webhelp/scr/1659.htm

 

b.Filter = "日期>='" & e.Form.Controls("label5").text  & "' and 日期<='" & e.Form.Controls("label7").text & "'"

你的图片文件改名为 已审核.png

 

而不是 已审核.png.png

必须加入顺序号列

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132680&skin=0