.NET Framework 版本:4.0.30319.17929
Foxtable 版本:2021.5.29.1
错误所在事件:窗口,收款凭证,Button1,Click
详细错误信息:
The expression contains undefined function call year().
还是报错
DataTables("收款凭证_Table1").deletefor( "[凭证号] Is Null")
DataTables("收款凭证_Table1").loadfilter = "1=2"
DataTables("收款凭证_Table1").load
With Tables("收款凭证_Table1")
Dim drs As List(Of DataRow) = DataTables("财务数据源").Select("year([日期]) = " & e.Form.Controls("rq").Value.year & " And Month([日期]) = " & e.Form.Controls("rq").Value.Month & " And [字号] = '" & e.Form.Controls("TextBox2").Value & "' And [凭证号] = '" & e.Form.Controls("dh").text - 1 & "'")
For Each dr As DataRow In drs
If dr IsNot Nothing Then
If dr("借或贷") = "借" Then
Forms("收款凭证").Controls("ComboBox3").text = dr("会计科目")
Forms("收款凭证").Controls("rq").text = dr("日期")
Forms("收款凭证").Controls("dh").text = dr("凭证号")
Forms("收款凭证").Controls("dh1").text = dr("安日期生成单号辅助列")
Forms("收款凭证").Controls("TextBox2").text = dr("字号")
Forms("收款凭证").Controls("RadioButton1").Checked = dr("已审核")
Forms("收款凭证").Controls("shr").text = dr("审核人")
Forms("收款凭证").Controls("TextBox1").text = dr("附件张数")
ElseIf dr("借或贷") = "贷" Then
Dim Filter As String = "安日期生成单号辅助列 = '" & dr("安日期生成单号辅助列") & "' And [字号] ='" & dr("字号") & "' And [凭证号] = '" & dr("凭证号") & "' And [借或贷] = '贷'"
DataTables("收款凭证_Table1").LoadFilter = Filter '设置加载条件
DataTables("收款凭证_Table1").Load() '加载数据
If dr.IsNull("外币金额") And dr.IsNull("数量") Then
Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").controls("combobox2").items(0)
Forms("收款凭证").Controls("ComboBox1").text = Forms("收款凭证").controls("combobox1").items(0)
.SetColVisibleWidth("摘要|300|贷方总账科目|100|明细科目|250|金额|100")
ElseIf dr.IsNull("外币金额") And dr.IsNull("数量") = False Then
Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").controls("combobox2").items(0)
Forms("收款凭证").Controls("ComboBox1").text = Forms("收款凭证").controls("combobox1").items(1)
.SetColVisibleWidth("摘要|300|贷方总账科目|100|明细科目|180|数量|60|单价|50|金额|60")
ElseIf dr.IsNull("外币金额") = False And dr.IsNull("数量") Then
Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").controls("combobox2").items(1)
Forms("收款凭证").Controls("ComboBox1").text = Forms("收款凭证").controls("combobox1").items(0)
.SetColVisibleWidth("摘要|250|贷方总账科目|100|明细科目|160|币种|60|汇率|60|外币金额|60|金额|60")
.Cols("外币金额").GrandTotal = True
ElseIf dr.IsNull("外币金额") = False And dr.IsNull("数量") = False Then
Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").controls("combobox2").items(1)
Forms("收款凭证").Controls("ComboBox1").text = Forms("收款凭证").controls("combobox1").items(1)
.SetColVisibleWidth("摘要|130|贷方总账科目|100|明细科目|110|数量|60|单价|60|币种|60|汇率|50|外币金额|60|外币金额|60|金额|60")
.Cols("外币金额").GrandTotal = True
End If
End If
End If
Next
End With