| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 数据加载问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122697) |
| -- 作者：huizhong -- 发布时间：2018/7/31 14:34:00 -- 数据加载问题 老师，我有一个财务台账，其中“凭证号码”列为自动编号，编号会参考年、月、公司名称，该表为多用户共同使用，因此，我在表代码的“增加行之前”事件中写入代码：DataTables("财务台账").Load（），但是，新增按钮延时过长，我想减少加载时间，因此，打算使用如下代码 DataTables("财务台账").LoadTop = "100" DataTables("财务台账").LoadOrder = "修改日期 Desc" DataTables("财务台账").Load 请问，老师，如此代码，由于只加载了100行，“凭证号码”列的自动编号功能是否会收到影响，例如在加载的这100行中没有出现当前录入的公司，那么当前公司编号会否从0001开始，或者您还有什么更好的建议
|
| -- 作者：huizhong -- 发布时间：2018/7/31 14:36:00 -- 之所以是100行，是我的财务最多5个站点，每个站点一天最多处理20条数据，由此...... |
| -- 作者：有点甜 -- 发布时间：2018/7/31 14:36:00 -- 你自动编号的代码怎么写的？贴出来看看。
你可以后台查询sqlcompute http://www.foxtable.com/webhelp/scr/2897.htm
|
| -- 作者：huizhong -- 发布时间：2018/7/31 16:27:00 -- 老师，以下是自动编号的代码，该代码我是做在表的DataColChanged事件中的 Select e.DataCol.Name \'实现自动编号功能 Case "财务处理日期","公司标记" If e.DataRow.IsNull("财务处理日期") OrElse e.DataRow.IsNull("公司标记") Then e.DataRow("单据号码") = Nothing Else Dim d As Date = e.DataRow("财务处理日期") Dim y As Integer = d.Year Dim m As Integer = d.Month Dim Days As Integer = Date.DaysInMonth(y,m) Dim fd As Date = New Date(y,m,1) \'获得该月的第一天 Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天 Dim bh As String = e.DataRow("公司标记") & "-" & Format(d,"yyyyMM") & "-" \'生成编号的前缀 If e.DataRow("单据号码").StartsWith(bh) = False \'如果单据编号前缀不符 Dim max As String Dim idx As Integer Dim flt As String flt = "公司标记 = \'"& e.DataRow("公司标记") & "\' And 财务处理日期 >= #" & fd & "# And 财务处理日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify") max = e.DataTable.Compute("Max(单据号码)",flt) \'取得该月的相同工程代码的最大单据编号 If max > "" Then \'如果存在最大单据编号 idx = CInt(max.Substring(10,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("单据号码") = bh & Format(idx,"0000") End If End If End Select |
| -- 作者：有点蓝 -- 发布时间：2018/7/31 16:50:00 -- …… If e.DataRow("单据号码").StartsWith(bh) = False \'如果单据编号前缀不符 Dim max As String Dim idx As Integer Dim flt As String flt = "公司标记 = \'"& e.DataRow("公司标记") & "\' And 财务处理日期 >= #" & fd & "# And 财务处理日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify") max = e.DataTable.sqlCompute("Max(单据号码)",flt) \'取得该月的相同工程代码的最大单据编号 If max > "" Then \'如果存在最大单据编号 idx = CInt(max.Substring(10,4)) + 1 \'获得最大单据编号的后四位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("单据号码") = bh & Format(idx,"0000") e.DataRow.save End If ……
|
| -- 作者：huizhong -- 发布时间：2018/7/31 21:21:00 -- 老师，我已修改代码，功能可以实现，但又出现了一个新的问题，我在【财务收支台账】中以sqlCompute进行后台统计，但是，我在项目LoadUserSetting事件中写入了登陆加载权限的代码，代码大致如下： If User.Group = "业务菜单" Then DataTables("项目基础表").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" DataTables("收入明细录入台账").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" DataTables("成本明细录入台账").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" DataTables("财务收支台账").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" DataTables("发票台账").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" DataTables("员工档案").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" DataTables("公司档案").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')" 由于此，在登陆软件的时候速度超慢（1分钟以上），请问老师，该如何解决，新手上路，请多见谅 |
| -- 作者：有点蓝 -- 发布时间：2018/7/31 21:50:00 -- 再减少加载范围，比如只加载本月/周/日的数据 |
| -- 作者：有点甜 -- 发布时间：2018/8/1 9:16:00 -- 1、你设置成不加载任何数据了没有？
http://www.foxtable.com/webhelp/scr/1268.htm
2、只有先不加载任何数据，再设置loadfilter、load才有效果的。 |
| -- 作者：huizhong -- 发布时间：2018/8/1 10:15:00 -- 老师，我已设置了不加载任何数据，但是登陆速度确实慢的可怕 我起初使用的Compute进行数据统计和查询，但是，由于多人共用系统，在自动编号功能背景下需要在新增行的时候加载全部数据，导致新增行动作缓慢，因此，为了优化此现象，改用sqlCompute进行后台统计查询，取消了新增行时的加载代码，如此，新增行动作缓慢的优化成功，但，开机项目事件中的加载条件导致登陆系统打开软件速度超慢，大致2分钟左右，我试着将有关“财务收支台账”的开机加载代码取消后该现象则不存在，因此，考虑是否sqlCompute与开机加载代码有冲突的地方 您受累给指点下
|
| -- 作者：huizhong -- 发布时间：2018/8/1 10:19:00 -- 也就是：在【财务收支台账】表中使用sqlCompute的情况下，同时在项目LoadUserSetting事件中使用DataTables("财务收支台账").LoadFilter = "公司标记 in (\'" & User.Roles.replace(",", "\',\'") & "\')"导致登陆速度慢的现象 |