Foxtable(狐表) → 用户栏目 → 专家坐堂 → 共用窗口的动态加载


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

主题：共用窗口的动态加载
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		共用窗口的动态加载  发帖心情 Post By：2022/3/10 11:26:00 [显示全部帖子]

我想做一个共用选单窗口，凭证的金额列做一个共用的选单窗口，当选单窗口在收款凭证中打开，选单窗口只加载出纳数据记账源的未审核的收款数据，我把选单窗口的表类型设为SQLTable，分别用SQLCommand方法（注识的代码），及现在的在Select语句中写入：Select [_Identify],前辍,出纳账安日期生成单号辅助列,摘要,会计科目,明细科目,币种,汇率,借方_外币金额,借方_金额,贷方_外币金额,贷方_金额 fr om {出纳数据记账源} Where [_Identify] Is Null，然后在窗口的Afterload事件写入下面的代码，均没生成加载数据，现在的方法还直接报错：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20220310112426.png
图片点击可在新窗口打开查看

With Tables("会计选出纳账数据_Table1")
    For a As Integer = .Rows.count - 1 To 0 Step -1
        .Rows(a).Delete
    Next
    If e.Form.DropTable IsNot Nothing Then
        Select Case e.Form.DropTable.Name
......
            Case "收款凭证_Table1"
                'Dim cmd1 As New SQLCommand
                'Dim dt1 As DataTable
                If (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Then
                    .DataTable.LoadFilter = "[前缀] = 'XS' And ([已审核] = False Or [已审核] Is Null)"
                    .DataTable.Load
                    'cmd1.CommandText = "Select [_Identify],前辍,出纳账安日期生成单号辅助列,摘要,会计科目,明细科目,币种,汇率,借方_外币金额,借方_金额 fr om {出纳数据记账源} Where [前辍] = '现收' And ([已审核] = False Or [已审核] Is Null)"
                    'dt1 = cmd1.ExecuteReader(True)
                    '.DataSource = dt
                    .DataSource = DataTables("出纳数据记账源")
                ElseIf (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收" Then
                    .DataTable.LoadFilter = "[前缀] = 'YS' And ([已审核] = False Or [已审核] Is Null)"
                    .DataTable.Load
                    'cmd1.CommandText = "Select [_Identify],前辍,出纳账安日期生成单号辅助列,摘要,会计科目,明细科目,币种,汇率,借方_外币金额,借方_金额 fr om {出纳数据记账源} Where [前辍] = '银收' And ([已审核] = False Or [已审核] Is Null)"
                    'dt1 = cmd1.ExecuteReader(True)
                    '.DataSource = dt
                    .DataSource = DataTables("出纳数据记账源")
                End If
                If DataTables("会计选出纳账数据_Table1").DataRows.Count > 0 Then
                    Dim ckb As DataTable = e.Form.Controls("Table1").Table.DataTable
                    If ckb.DataCols.Contains("外币未选余额") = False And ckb.DataCols.Contains("未选余额") = False And ckb.DataCols.Contains("本次外币录入金额") = False And ckb.DataCols.Contains("本次录入金额") = False Then
                        ckb.DataCols.add("外币未选余额", Gettype(Double))
                        ckb.DataCols.add("未选余额", Gettype(Double))
                        ckb.DataCols.add("本次外币录入金额", Gettype(Double))
                        ckb.DataCols.add("本次录入金额", Gettype(Double))
                    End If
                    DataTables("会计选出纳账数据_Table1").DataCols("借方_外币金额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("借方_金额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("贷方_外币金额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("贷方_金额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("外币未选余额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("未选余额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("本次外币录入金额").SetFormat("#,###.##")
                    DataTables("会计选出纳账数据_Table1").DataCols("本次录入金额").SetFormat("#,###.##")
                    If Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(0) Then
                        .SetColVisibleWidth("前辍|40|出纳账安日期生成单号辅助列|100|摘要|250|会计科目|80|明细科目|150|借方_金额|80|未选余额|80|本次录入金额|80")
                        .DataTable.DataCols("本次录入金额").AllowEdit = True
                    ElseIf Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(1) Then
                        .SetColVisibleWidth("前辍|40|出纳账安日期生成单号辅助列|100|摘要|250|会计科目|80|明细科目|150|币种|50|汇率|60|借方_外币金额|80|借方_金额|80|外币未选余额|80|未选余额|80|本次外币录入金额|80|本次录入金额|80")
                        .DataTable.DataCols("本次外币录入金额").AllowEdit = True
                        .DataTable.DataCols("本次录入金额").AllowEdit = True
                    End If
                    .AutoSizeRows
                    .SetHeaderRowHeight(0,40)
                End If
        End Select
    End If
End With
[此贴子已经被作者于2022/3/10 13:00:59编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

把前缀的缀字改过来依然报错：
.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2022.1.30.2
错误所在事件：AfterLoad
详细错误信息：
Object reference not set to an instance of an object.
关闭提示窗口后再弹一个提示窗口：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20220310115733.png
图片点击可在新窗口打开查看
关闭这个提示显示：
.NET Framework 版本：4.0.30319.18063
Foxtable 版本：2022.1.30.2
错误所在事件：DropDownOpened
详细错误信息：
Object reference not set to an instance of an object.

[此贴子已经被作者于2022/3/10 12:00:46编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

总是提示错，我看不出错在哪！眼都晕了！

此主题相关图片如下：qq图片20220310141137.png
按此在新窗口浏览图片

此主题相关图片如下：qq图片20220310141233.png
按此在新窗口浏览图片

With Tables("会计选出纳账数据_Table1")
    For a As Integer = .Rows.count - 1 To 0 Step -1
        .Rows(a).Delete
    Next
    If e.Form.DropTable IsNot Nothing Then
        Select Case e.Form.DropTable.Name
......
            Case "收款凭证_Table1"
                If (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Then
                    .DataTable.LoadFilter = "[前缀] = 'XS' And ([已审核] = False Or [已审核] Is Null)"
                    .DataTable.Load
                    .DataSource = DataTables("出纳数据记账源")
                ElseIf (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收" Then
                    .DataTable.LoadFilter = "[前缀] = 'YS' And ([已审核] = False Or [已审核] Is Null)"
                    .DataTable.Load
                    .DataSource = DataTables("出纳数据记账源")
                End If
                If DataTables("会计选出纳账数据_Table1").DataRows.Count > 0 Then
                    Dim ckb As DataTable = e.Form.Controls("Table1").Table.DataTable
                    If ckb.DataCols.Contains("外币未选余额") = False And ckb.DataCols.Contains("未选余额") = False And ckb.DataCols.Contains("本次外币录入金额") = False And ckb.DataCols.Contains("本次录入金额") = False Then
                        ckb.DataCols.add("外币未选余额", Gettype(Double))
                        ckb.DataCols.add("未选余额", Gettype(Double))
                        ckb.DataCols.add("本次外币录入金额", Gettype(Double))
                        ckb.DataCols.add("本次录入金额", Gettype(Double))
                    End If
                    .DataTable.DataCols("借方_外币金额").SetFormat("#,###.##")
                    .DataTable.DataCols("借方_金额").SetFormat("#,###.##")
                    .DataTable.DataCols("贷方_外币金额").SetFormat("#,###.##")
                    .DataTable.DataCols("贷方_金额").SetFormat("#,###.##")
                    .DataTable.DataCols("外币未选余额").SetFormat("#,###.##")
                    .DataTable.DataCols("未选余额").SetFormat("#,###.##")
                    .DataTable.DataCols("本次外币录入金额").SetFormat("#,###.##")
                    .DataTable.DataCols("本次录入金额").SetFormat("#,###.##")
                    If Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(0) Then
                        .SetColVisibleWidth("前辍|40|出纳账安日期生成单号辅助列|100|摘要|250|会计科目|80|明细科目|150|借方_金额|80|未选余额|80|本次录入金额|80")
                        .DataTable.DataCols("本次录入金额").AllowEdit = True
                    ElseIf Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(1) Then
                        .SetColVisibleWidth("前辍|40|出纳账安日期生成单号辅助列|100|摘要|250|会计科目|80|明细科目|150|币种|50|汇率|60|借方_外币金额|80|借方_金额|80|外币未选余额|80|未选余额|80|本次外币录入金额|80|本次录入金额|80")
                        .DataTable.DataCols("本次外币录入金额").AllowEdit = True
                        .DataTable.DataCols("本次录入金额").AllowEdit = True
                    End If
                    .AutoSizeRows
                    .SetHeaderRowHeight(0,40)
                End If
        End Select
    End If
End Wit
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改为这样没有数据显示
With Tables("会计选出纳账数据_Table1")
    For a As Integer = .Rows.count - 1 To 0 Step -1
        .Rows(a).Delete
    Next
    If e.Form.DropTable IsNot Nothing Then
        Select Case e.Form.DropTable.Name
......
            Case "收款凭证_Table1"
                If (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Then
                    .DataTable.LoadFilter = "[前缀] = 'XS' And ([已审核] = False Or [已审核] Is Null)"
                    .DataTable.Load
                ElseIf (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收" Then
                    .DataTable.LoadFilter = "[前缀] = 'YS' And ([已审核] = False Or [已审核] Is Null)"
                    .DataTable.Load
                End If
                If .DataTable.DataRows.Count > 0 Then
                    Dim ckb As DataTable = e.Form.Controls("Table1").Table.DataTable
                    If ckb.DataCols.Contains("外币未选余额") = False And ckb.DataCols.Contains("未选余额") = False And ckb.DataCols.Contains("本次外币录入金额") = False And ckb.DataCols.Contains("本次录入金额") = False Then
                        ckb.DataCols.add("外币未选余额", Gettype(Double))
                        ckb.DataCols.add("未选余额", Gettype(Double))
                        ckb.DataCols.add("本次外币录入金额", Gettype(Double))
                        ckb.DataCols.add("本次录入金额", Gettype(Double))
                    End If
                    .DataTable.DataCols("借方_外币金额").SetFormat("#,###.##")
                    .DataTable.DataCols("借方_金额").SetFormat("#,###.##")
                    .DataTable.DataCols("贷方_外币金额").SetFormat("#,###.##")
                    .DataTable.DataCols("贷方_金额").SetFormat("#,###.##")
                    .DataTable.DataCols("外币未选余额").SetFormat("#,###.##")
                    .DataTable.DataCols("未选余额").SetFormat("#,###.##")
                    .DataTable.DataCols("本次外币录入金额").SetFormat("#,###.##")
                    .DataTable.DataCols("本次录入金额").SetFormat("#,###.##")
                    If Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(0) Then
                        .SetColVisibleWidth("前辍|40|出纳账安日期生成单号辅助列|100|摘要|250|会计科目|80|明细科目|150|借方_金额|80|未选余额|80|本次录入金额|80")
                        .DataTable.DataCols("本次录入金额").AllowEdit = True
                    ElseIf Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(1) Then
                        .SetColVisibleWidth("前辍|40|出纳账安日期生成单号辅助列|100|摘要|250|会计科目|80|明细科目|150|币种|50|汇率|60|借方_外币金额|80|借方_金额|80|外币未选余额|80|未选余额|80|本次外币录入金额|80|本次录入金额|80")
                        .DataTable.DataCols("本次外币录入金额").AllowEdit = True
                        .DataTable.DataCols("本次录入金额").AllowEdit = True
                    End If
                    .AutoSizeRows
                    .SetHeaderRowHeight(0,40)
                End If
     End Select
    End If
End Wit
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

哦，明白了，刚才绑定表时把数据源的数据全删了！

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


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

 我重新录入了一次出纳数据记账源表的数据，刚打开下拉选单窗口时看到有数据，紧跟着下拉窗口中的数据自动被删除了，连出纳数据记账源表的数据中的数据也被删了！

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


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

是不是一开始的这段代码把所有数据删了？但这是SQLTable类型窗口，应该是副本，原表数据为什么被删除？
With Tables("会计选出纳账数据_Table1")
    For a As Integer = .Rows.count - 1 To 0 Step -1
        .Rows(a).Delete
    Next
[此贴子已经被作者于2022/3/11 11:33:16编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我在KeyDown事件里写入这代码：选单表里的数据处在编辑状态，按回车键数据无法输入凭证中，结束编辑状态按回车键数据才录入凭证。如何让数据处在编辑状态按回车键后也能输入数据。
Dim tbl As Table = Tables("会计选出纳账数据_Table1")
Tables("会计选出纳账数据_Table1").FinishEditing '如果单元格处于编辑状态,需要结束编辑,让编辑内容写入单元格
If e.Form.DropTable IsNot Nothing Then
        Case "收款凭证_Table1"
            If e.KeyCode = Keys.Enter Then
                If tbl.Current IsNot Nothing Then
                    If ((Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Or (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收") And Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(0) Then
                        e.Form.DropDownBox.Value = tbl.Current("本次录入金额")
                        e.Form.DropTable.Current("出纳账安日期生成单号辅助列") = tbl.Current("出纳账安日期生成单号辅助列")
                    ElseIf ((Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "现收" Or (Forms("收款凭证").Controls("TextBox2").Text).SubString(0,2) = "银收") And Forms("收款凭证").Controls("ComboBox2").text = Forms("收款凭证").Controls("ComboBox2").Items(1) Then
                        e.Form.DropDownBox.Value = tbl.Current("本次录入金额")
                        e.Form.DropTable.Current("外币金额") = tbl.Current("本次外币录入金额")
                        e.Form.DropTable.Current("币种") = tbl.Current("币种")
                        e.Form.DropTable.Current("汇率") = tbl.Current("汇率")
                        e.Form.DropTable.Current("出纳账安日期生成单号辅助列") = tbl.Current("出纳账安日期生成单号辅助列")
                    End If
                End If
                e.Cancel = True
                e.Form.DropDownBox.CloseDropDown()
            End If
    End Select
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220312144140.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20220312144155.jpg
图片点击可在新窗口打开查看

光标在单元格中闪，数据不能输入凭证。
选中单元格，光标没有进入单元格，上面的代码能输入凭证，我现在问的是光标在单元格内，按回车键，如何把数据输入凭证。
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

实例就不上传了，这选单窗口代码中含了很多会计专业取数、计算知识，文字我已表述得很清楚了，现在我要实现把选单窗口里的数据输入凭证中的对应列，在选单窗口中的本次录入金额中输入数据后，光标仍在选单窗口中的本次录入金额中闪烁时按回车，数据无法输入凭证中，上面的代码是鼠标点一下其他地方，让光标退出单元格编辑状态，再重新点一下刚才输入的本次录入金额，按回车键，数据就能输入凭证。
[此贴子已经被作者于2022/3/12 15:59:52编辑过]
 回到顶部
总数 18 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.07813 秒, 5 次数据查询