现在是后面有问题了，.NET Framework 版本：4.0.30319.42000Foxtable 版本：2022.8.18.1
错误所在事件：自定义函数,Rename_checking
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
Else
MessageBox.Show(3)
For Each ss As String In DataTables("实名制管理").SQLGetvalues("姓名", "项目名称 = '" & _UserXmmc & "' And 在岗状态 = '在岗'")
MessageBox.Show(ss) 'ss调试出来是：测试一，但我没勾选测试一
Dim dr1 As DataRow = DataTables("实名制考勤").SQLFind("项目名称 = '" & _UserXmmc & "' And 年 = '" & d.Year & "' And 月 = '" & d.Month & "' And 姓名 = '" & ss & "'")
MessageBox.Show (dr1("姓名"))
If dr1 IsNot Nothing Then
If lst.contains(ss) Then
dr1("日" & d.Day) = "√"
Else
dr1("日" & d.Day) = "×"
End If
dr1.Save
MessageBox.Show(4)
Else
dr1 = DataTables("实名制考勤").AddNew()
dr1("所属机构") = _UserGroup
dr1("项目名称") = _UserXmmc
dr1("姓名") = ss
dr1("年") = d.Year
dr1("月") = d.Month
If lst.contains(ss) Then
dr1("日" & d.Day) = "√"
Else
dr1("日" & d.Day) = "×"
End If
MessageBox.Show(5)
dr1.Save
End If
Next
End If
加好友 
发短信
Post By：2023/2/15 12:32:00 [只看该作者]
