Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中添加上一单按钮


  共有3469人关注过本帖树形打印复制链接

主题：窗口中添加上一单按钮
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		窗口中添加上一单按钮  发帖心情 Post By：2021/6/9 16:39:00 [显示全部帖子]

在窗口中添加上一单按钮，这样写报错：
.NET Framework 版本：4.0.30319.17929
Foxtable 版本：2021.5.29.1
错误所在事件：窗口,收款凭证,Button1,Click
详细错误信息：
Object reference not set to an instance of an object.


DataTables("收款凭证_Table1").deletefor( "[凭证号] Is Null")
DataTables("收款凭证_Table1").loadfilter = "1=2"
DataTables("收款凭证_Table1").load
Dim dr As DataRow = DataTables("财务数据源").SQLFind("[日期] = #" & (e.Form.Controls("rq").Value).Month & "# And [字号] = '" & e.Form.Controls("TextBox2").Value & "' And [凭证号] = '" & e.Form.Controls("dh").text + 1 & "'")
Dim dr1 As DataRow = DataTables("财务数据源").SQLFind("[日期] = #" & (e.Form.Controls("rq").Value).Month & "# And [字号] = '" & e.Form.Controls("TextBox2").Value & "' And [凭证号] = '" & e.Form.Controls("dh").text + 1 & "' And [借或贷] = '借'")
Forms("收款凭证").Controls("ComboBox3").text = dr1("会计科目")
Forms("收款凭证").Controls("rq").text = dr1("日期")
Forms("收款凭证").Controls("dh").text = dr1("凭证号")
Forms("收款凭证").Controls("dh1").text = dr1("安日期生成单号辅助列")
Forms("收款凭证").Controls("TextBox2").text = dr1("字号")
Forms("收款凭证").Controls("RadioButton1").Checked = dr1("已审核")
Forms("收款凭证").Controls("shr").text = dr1("审核人")
Forms("收款凭证").Controls("TextBox1").text = dr1("附件张数")
With Tables("收款凭证_Table1")
    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
    .Cols("贷方总账科目").DropForm = "科目"
    .Cols("金额").GrandTotal = True
    .GrandTotal = True
    'If e.Col.Name = "摘要" Or e.Col.Name = "贷方总账科目" Or e.Col.Name = "明细科目" Then
        '.AutoSizeRow(e.Row.Index)
    'End If
    Dim r As Row
    For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
        r = .Rows(i,True) 'Rows也需要加上参数True
        If r.Level Then '如果是合计行
            .Cols("摘要").TextAlign = TextAlignEnum.Center
        End If
    Next
    If .Rows.Count < 10 Then
        .AddNew(10 - .Rows.Count)
    End If
End With
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/9 17:05:00 [显示全部帖子]

我加入这语句连弹窗都没有，表上没加载任何数据！
MessageBox.Show(Filter)
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/9 17:46:00 [显示全部帖子]

前面三行是删除窗口表上的行，第四、第五行是定义财务数据源符合条件的行，都不会有数据弹出，第6行也没有数据弹出，说明没找到定义的行，可查找的行日期等于窗口日期控件的月份，字号等于e.Form.Controls("TextBox2").Value，单号等于e.Form.Controls("dh").text - 1，应怎么写？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 11:43:00 [显示全部帖子]

红色标注代码报错
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
    .Cols("贷方总账科目").DropForm = "科目"
    .Cols("金额").GrandTotal = True
    .GrandTotal = True
    If e.Col.Name = "摘要" Or e.Col.Name = "贷方总账科目" Or e.Col.Name = "明细科目" Then '自动行高报错
    .AutoSizeRow(e.Row.Index)
    End If
    Dim r As Row
    For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
        r = .Rows(i,True) 'Rows也需要加上参数True
        If r.Level Then '如果是合计行
            .Cols("摘要").TextAlign = TextAlignEnum.Center
        End If
    Next
    If .Rows.Count < 10 Then
        .AddNew(10 - .Rows.Count)
    End If
End With
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 13:24:00 [显示全部帖子]

哦，代码做在按钮上不能用e参数！

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 13:57:00 [显示全部帖子]

.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
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 15:46:00 [显示全部帖子]

我已经把凭证号转为数值了，可控件上的凭证号完全没变，DataTables("收款凭证_Table1")也没加载任何数据
DataTables("收款凭证_Table1").deletefor( "[凭证号] Is Null")
DataTables("收款凭证_Table1").loadfilter = "1=2"
DataTables("收款凭证_Table1").load
With Tables("收款凭证_Table1")
    If CInt(e.Form.Controls("dh").text) > 2 Then
        Dim y As Integer = e.Form.Controls("rq").Value.year
        Dim m As Integer = e.Form.Controls("rq").Value.Month '指定月份
        Dim dt1 As New Date(y, m, 1)
        Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
        Dim drs As List(Of DataRow) = DataTables("财务数据源").Select("[日期] >= #" & dt1 & "# And [日期] <= #" & dt2 & "# And [字号] = '" & e.Form.Controls("TextBox2").Value & "' And [凭证号] = '" & CInt(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 If
End With
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 15:49:00 [显示全部帖子]

不能用
With CurrentTable 
    .Position = .Position + 1
End With
这种方法，因为会计凭证常一借多贷，下一份凭证不等于财务数据源表的下一行数据，所以帮助里的方法用到凭证的上一单、下一单行不通，必须重写代码。
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 16:39:00 [显示全部帖子]

改为这样不报错，但凭证号没变，加载的还是原来的数据，连红色标注的弹窗都没有。
DataTables("收款凭证_Table1").deletefor( "[凭证号] Is Null")
DataTables("收款凭证_Table1").load
With Tables("收款凭证_Table1")
    If CInt(e.Form.Controls("dh").text) > 2 Then
        Dim y As Integer = e.Form.Controls("rq").Value.year
        Dim m As Integer = e.Form.Controls("rq").Value.Month '指定月份
        Dim dt1 As New Date(y, m, 1)
        Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
        Dim drs As List(Of DataRow) = DataTables("财务数据源").Select("[日期] >= #" & dt1 & "# And [日期] <= #" & dt2 & "# And [字号] = '" & e.Form.Controls("TextBox2").Value & "' And [凭证号] = '" & CInt(e.Form.Controls("dh").text) - 1 & "'")
        MessageBox.show(CInt(e.Form.Controls("dh").text) - 1)
        For Each dr As DataRow In drs
            If dr IsNot Nothing Then
                If dr("借或贷") = "借" Then
                    systemready = False
                    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("附件张数")
                    systemready = True
                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 If
    If .Rows.Count < 10 Then
        .AddNew(10 - .Rows.Count)
    End If
End With
[此贴子已经被作者于2021/6/10 16:39:29编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/10 17:49:00 [显示全部帖子]

DataTables("收款凭证_Table1").deletefor( "[凭证号] Is Null")
DataTables("收款凭证_Table1").load
With Tables("收款凭证_Table1")
    If CInt(e.Form.Controls("dh").text) > 1 Then
        Dim y As Integer = e.Form.Controls("rq").Value.year
        Dim m As Integer = e.Form.Controls("rq").Value.Month '指定月份
        Dim dt1 As New Date(y, m, 1)
        Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
        Dim drs As List(Of DataRow) = DataTables("财务数据源").Select("[日期] >= #" & dt1 & "# And [日期] <= #" & dt2 & "# And [字号] = '" & e.Form.Controls("TextBox2").Value & "' And [凭证号] = '" & CInt(e.Form.Controls("dh").text) - 1 & "'")
        MessageBox.show(CInt(e.Form.Controls("dh").text) - 1)
        For Each dr As DataRow In drs
            If dr IsNot Nothing Then
                If dr("借或贷") = "借" Then
                    systemready = False
                    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("lry").text = dr("录入员")
                    Forms("收款凭证").Controls("shr").text = dr("审核人")
                    Forms("收款凭证").Controls("TextBox1").text = dr("附件张数")
                    systemready = True
                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 If
    If .Rows.Count < 10 Then
        .AddNew(10 - .Rows.Count)
    End If
End With
[此贴子已经被作者于2021/6/10 22:59:56编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09375 秒, 5 次数据查询