Foxtable(狐表)用户栏目专家坐堂 → 异常函数


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

主题:异常函数

帅哥哟,离线,有人找我吗?
keli0917
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
异常函数  发帖心情 Post By:2024/3/29 21:16:00 [只看该作者]

Filler填充datatables("凭证")约1000行数据

函数A

For Each dr As Row In Tables("凭证_Table1").Rows
    If dr IsNot Nothing Then
        
        Dim dr1 As DataRow
        dr1  =  DataTables("GLObj").SQLFind("[FObjID] = '" & dr("核算项目代码") &  "'")
        If dr1 IsNot Nothing  Then
            dr("核算项目名称") = dr1("FObjName")
        End If
        dr.save()
    End If
Next
Functions.AsyncExecute("函数A")
当窗口1_table1首次加载数据时,总是提示调用的目标发生了异常。是什么原因?如果窗口1_table1原来有数据,就不会提示异常
[此贴子已经被作者于2024/3/29 21:31:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2024/3/29 21:22:00 [只看该作者]

函数A改成下面:
Dim c1md As new SQLCommand
cm1d.C
Dim dt As DataTable
cm1d.CommandText = "S1elect [_Identify],日期 From {凭证}"
dt = cm1d.ExecuteReader(True) '记得将参数设置为True
For Each dr As DataRow In dt.DataRows
Dim dr1 As DataRow
        dr1  =  DataTables("GLObj").SQLFind("[FObjID] = '" & dr("核算项目代码") &  "'")
        If dr1 IsNot Nothing  Then
            dr("核算项目名称") = dr1("FObjName")
        End If


Next
dt.save()
Functions.AsyncExecute("函数A")

如果这样慢慢加载,没全部加载完,用DataTables("凭证").load()刷新Tables("凭证_Table1")也会出错。如何判断在全部加载完了后自动刷新副本表呀?


[此贴子已经被作者于2024/3/29 21:32:47编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/30 10:09:00 [只看该作者]

凭证 和 GLObj是不是同一个数据库的表?如果是一条sql就行了

update b set b.核算项目名称 = a.FObjName from {GLObj} as a,{凭证} as b where a.FObjID = b.核算项目代码"

 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2024/3/30 10:29:00 [只看该作者]

不是一个数据库的。除了查找核算项目名称。还要查找会计科目名称。
Dim strs1() As String={"4","6","8"}
            Dim strs2() As String={"科目名称","科目名称","科目名称"}
            Dim i1 As Integer = CStr(dr("科目代码")).Length
            ' msgbox(dr("科目代码").SubString(0,i1))
            dr("科目名称") = Nothing
            For i As Integer = 0 To i1/2-2
                Dim rs As DataRow
                rs = DataTables("GLAcct").sqlfind("[FACCTID] = '" & CStr(dr("科目代码")).SubString(0,strs1(i)) & "'")
                If rs IsNot Nothing Then
                     
                    dr(strs2(i)) = (dr(strs2(i)) &"_"& rs("FAcctName")).TrimStart("_")
                    'MessageBox.Show(dr(strs2(i)) )
                Else
                    dr(strs2(i)) = Nothing
                End If
            Next


 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2024/3/30 10:29:00 [只看该作者]

100行以内挺快,超过100行就慢的要命了

 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2024/3/30 10:30:00 [只看该作者]

本来是放在DATACOLCHANGED里的,实在太卡,所以想着换个方法。

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/30 10:32:00 [只看该作者]

做个例子发上来测试一下,看看有没有优化的方法

 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2024/3/30 15:41:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

帮忙看一下代码吧。因为数据是从金碟软件Filler填充到凭证序时簿的,没办法做示例数据。

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106000 积分:539087 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/30 15:53:00 [只看该作者]

首先这个函数只能使用Functions.Execute,不能使用Functions.AsyncExecute,因为:http://www.foxtable.com/mobilehelp/topics/277.htm

然后:

GLVch、GLAcct、GLObj都是同一个数据库的表?
凭证序时簿、FP_取得fa piao池、FP_开具fa piao池是同一个数据库的表?

 回到顶部
帅哥哟,离线,有人找我吗?
keli0917
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2425 威望:0 精华:0 注册:2018/5/21 16:49:00
  发帖心情 Post By:2024/3/30 18:06:00 [只看该作者]

GLVch、GLAcct、GLObj是同一个数据库KIS
凭证序时簿、FP_取得fa piao池、FP_开具fa piao池是同一个数据库MYACC

 回到顶部
总数 17 1 2 下一页