从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("身份证号")
两边都是字符啊。怎么会报这种错误?
请老师指点。