- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助导入临时表校验数据的代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128108)
-- 发布时间：2018/11/28 23:50:00
-- 求助导入临时表校验数据的代码
从XLS导入数据到临时表“预览”
在窗口内嵌一个table控件显示这个临时表
做一个“校验”按钮，按钮的代码如下：
Dim mc As DataRow
For Each dr As Row In Tables("预览").Rows
For Each le As Col In Tables("预览").Cols
If dr.IsNull(le.Name) Then
dr.DataRow.SetError(le.Name,"不能导入空值")
End If
If dr("积分")= 0 Then
dr.DataRow.SetError("积分","积分值为0不必导入,请删除该行")
End If
mc = DataTables("ygb").Find("SF_ID = " & dr("身份证号"))
If mc IsNot Nothing Then
If dr("姓名") <> mc("name") Then
dr.DataRow.SetError("身份证号","身份证号错误,请修改xls表格,重新导入")
End If
Else
dr.DataRow.SetError("身份证号","身份证号错误,查无此人")
End If
Next
Next
代码保存没有报错
但点击这个按钮，执行时报错
Cannot perform \'=\' operation on System.String and System.Int64.
"SF_ID = " & dr("身份证号")
两边都是字符啊。怎么会报这种错误？
请老师指点。
-- 发布时间：2018/11/29 0:38:00
--
mc = DataTables("ygb").Find("SF_ID = \'" & dr("身份证号") & "\'")
-- 发布时间：2018/11/29 12:00:00
--
谢谢甜老师。
