以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]“意和打印窗口”中的“出库日期”控件的日期时间格式为DateLongTime的话，“意和打印窗口”中的“打印”按钮的代码应该怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132750)
--  作者：fengwenliuyan
--  发布时间：2019/3/29 1:43:00
--  [求助]“意和打印窗口”中的“出库日期”控件的日期时间格式为DateLongTime的话，“意和打印窗口”中的“打印”按钮的代码应该怎么写？
“意和打印窗口”中的“出库日期”控件的日期时间格式为DateLongTime的话，“意和打印窗口”中的“打印”按钮的代码应该怎么写？

[此贴子已经被作者于2019/4/30 10:00:03编辑过]
--  作者：fengwenliuyan
--  发布时间：2019/3/29 9:26:00
--  
求帮助
--  作者：fengwenliuyan
--  发布时间：2019/3/29 9:56:00
--  
\'意和打印选择表_出库明细表模拟关联表:
Dim t1 As Table = Tables("意和打印窗口_出库明细表")
With Tables("意和打印选择表")
    If .Current Is Nothing Then
        t1.Filter = "False"
    Else
        t1.Filter = "打印_意和 = \'" & .Current("打印_意和") & "\'"  \'整数列与单精列的区别
    End If
End With
t1.OpenView("default")
\'打开窗口后,Tables("意和打印窗口_出库明细表")只显示当前选定行.

Dim d As Date = e.DataRow("入库日期").Date
If Tables("意和打印窗口_出库明细表").Rows.Count <> 0 AndAlso  Date.TryParse(Tables("意和打印窗口_出库明细表").Current("出库日期"), d) Then
    Dim bh As String = "YH" & Format(d, "yyyyMMdd")
    Dim max As String = e.DataTable.Compute("Max(出库编号)","出库日期 >= #" & d & "# And 出库日期 < #" & d.adddays(1) & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
    Dim idx As Integer
    Dim fdr As DataRow = DataTables("意和打印记录表").Find("日期 = #" & d & "#")
    If fdr Is Nothing Then
        fdr = DataTables("意和打印记录表").AddNew
        fdr("日期") = d
        fdr("次数") = 0
    End If
    e.Form.Controls("出库编号").Text = bh & Format(fdr("次数") + 1, "000")
End If

\'Tables("意和打印选择表.入库明细表").SetHeaderRowHeight(12)
Tables("意和打印窗口_出库明细表").SetHeaderRowHeight(35,35)

\'Tables("意和打印选择表.入库明细表").Sort = "出库日期"

\'自动调整行高
Dim t As Table = Tables("意和打印窗口_出库明细表")
t.AutoSizeRows

\'With Tables("意和打印窗口_出库明细表")
\'    .Cols("数量_过磅").GrandTotal = True
\'    .Cols("金额_应收").GrandTotal = True
\'    .GrandTotal = True
\'End With
--  作者：有点甜
--  发布时间：2019/3/29 9:58:00
--  

 

Dim d As Date = e.Form.Controls("出库日期").Text
Dim fdr As DataRow = DataTables("意和打印记录表").Find("日期 >= #" & d.Date & "# and 日期 < #" & d.Date.adddays(1) & "#")

 
--  作者：fengwenliuyan
--  发布时间：2019/3/29 10:04:00
--  回复：（有点甜） Dim d As Date = e.Form.Con...
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,意和打印窗口,AfterLoad
详细错误信息：
从字符串“”到类型“Date”的转换无效。
--  作者：有点甜
--  发布时间：2019/3/29 10:17:00
--  

修改你打印按钮代码啊

 

Dim d As Date = e.Form.Controls("出库日期").Text
Dim fdr As DataRow = DataTables("意和打印记录表").Find("日期 >= #" & d.Date & "# and 日期 < #" & d.Date.adddays(1) & "#")