Dim cname As String = "操作记录"
Dim r As DataRow = DataTables("资产日志").SQLFind("编号='"& CurrentTable.Current("_identify") &"' ")
Dim s As String = "_identify ='"& r("_identify") &"'and convert(varchar(255)," & cname & ") = '"& r(cname) &"'"
Dim dr As DataRow = r.DataTable.SQLFind(s)
If dr Is Nothing Then
r.Load()
If cname <>"操作记录" Then
Return "后台数据已更新!"
End If
End If
这里报错了。
[此贴子已经被作者于2022/4/1 10:03:22编辑过]