写入注册表的开机自动执行的客户端，报错。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

application.doevents 这句代码有什么用啊？帮助里没有查到相关的用法啊。

http://www.foxtable.com/webhelp/topics/1476.htm

自动执行的计划事件（每天0点执行，每40分钟执行一次计划）报错，异常捕获信息和计划代码见附件。帮看看怎么回事吧。谢谢！

单独执行一遍计划管理的代码，没有报错。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:mmsglog.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计划管理代码.txt

[此贴子已经被作者于2019/11/26 9:20:59编辑过]

提示是使用DataTableBuilder创建临时表出错。

把里面用到的4个函数的代码全部发上来。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:eventcode.txt

全部改为使用临时的datatable表，如:http://www.foxtable.com/webhelp/topics/1910.htm

刷新租金服务费金额合同状态

Dim htid As String = Args(0) '合同编号

Dim Vals_r As New List(Of String)

'Dim htid As String = Args(1) '项目名称

'Dim htid As String = Args(2) '租赁类别

Dim hc As New HttpClient("http://ls.xinlianhuichuang.com/v1/lshtmx?id=" & htid)

Dim ret As String = hc.GetData()

If ret="" OrElse ret="[]" Then Return Vals_r

Dim dtb As New DataTableBuilder("明细表")

dtb.AddDef("合同编号", Gettype(String), 100)

dtb.AddDef("客户名称", Gettype(String), 100)

dtb.AddDef("合同属性", Gettype(String), 20)

'dtb.AddDef("合同开始日期", Gettype(Date), 20)

'dtb.AddDef("合同终止日期", Gettype(Date), 20)

'dtb.AddDef("起租日期", Gettype(Date), 20)

'dtb.AddDef("签订日期", Gettype(Date), 20)

dtb.AddDef("项目名称", Gettype(String), 100)

'dtb.AddDef("楼栋名称", Gettype(String), 100)

'dtb.AddDef("房间名称", Gettype(String), 100)

dtb.AddDef("租赁类别", Gettype(String), 100)

dtb.AddDef("合同状态", Gettype(String), 50)

dtb.AddDef("合同面积", Gettype(Double))

'dtb.AddDef("经手人", Gettype(String), 50)

dtb.AddDef("租金总额", Gettype(Double), 50)

dtb.AddDef("管理费总额", Gettype(Double), 50)

dim dt as datatable = dtb.Build(true)

For Each ep As JToken In JArray.Parse(ret)

Dim rr As Row=dt.addnew()

rr("合同编号")=ep("合同编号")

rr("合同属性")=ep("合同属性")

'rr("合同开始日期")=ep("合同开始日期")

'rr("合同终止日期")=ep("合同终止日期")

'rr("起租日期")=ep("起租日期")

'rr("签订日期")=ep("签订日期")

rr("项目名称")=ep("项目名称")

'rr("楼栋名称")=ep("楼栋名称")

'rr("房间名称")=ep("房间名称")

rr("客户名称")=ep("客户名称")

rr("租赁类别")=ep("租赁类别")

rr("合同状态")=ep("合同状态")

rr("合同面积")=ep("合同面积")

'rr("经手人")=ep("经手人")

rr("租金总额")=ep("租金总额")

rr("管理费总额")=ep("管理费总额")

'messagebox.Show("姓名:" & ep("name").ToString() & " 年龄:" & ep("age").ToString())

Dim zt As String=dt.compute("sum(租金总额)")

Dim ft As String=dt.compute("sum(管理费总额)")

Dim htzt As String=dt.datarows(0)("合同状态")

Dim khmc As String=dt.datarows(0)("客户名称")

Vals_r.add(zt)

Vals_r.add(ft)

Vals_r.add(htzt)

Vals_r.add(khmc)

Return Vals_r

其它函数自己也相应改改。

另外看了一下大概的逻辑，其实都没有必要创建临时表，直接在json数据的遍历里直接累加求和不就行了

异常捕获如下：是怎么会事啊啊，谢谢。

2019-12-23 10:33:50.0636

调用的目标发生了异常。

在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)

在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)

在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)

未将对象引用设置到对象的实例。

在 UserCode.AIgIZCeP6tkGb8CpG(Object[] Args)

2020-03-19 10:44:29.5790

调用的目标发生了异常。

在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)

在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)

在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)

未将对象引用设置到对象的实例。

在 UserCode.AIgIZCeP6tkGb8CpG(Object[] Args)

2020-03-19 10:44:31.2109

调用的目标发生了异常。

在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)

在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)

在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)

在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)

未将对象引用设置到对象的实例。

在 UserCode.AIgIZCeP6tkGb8CpG(Object[] Args)

调用函数出错。项目代码使用了空对象，需要判断一下。看看是做什么操作出现的问题，检查相关代码。

比如如果我们不加上判断，直接：

Dim dr As DataRow
dr = DataTables("订单").Find("数量 > 1000","日期 Desc")
Output.Show("日期:" & dr("日期"))
Output.Show("客户:" & dr("客户"))

一旦订单表并不存在订购数量超过1000的订单，那么Find方法返回Nothing，导致后续代码运行出错。

我看了代码，大概都进行是否为空的判断了，里面的自定义函数好几个，有办法捕获到哪个函数的哪一句代码在调用数据库中哪条数据时报的错吗？

目前暂时只能这样：在每个函数的开头或者结尾加一句日志记录函数名称的代码，出错的时候看上一个日志记录什么函数名称

主题：写入注册表的开机自动执行的客户端，报错。