- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]提取数据出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=69910)
-- 发布时间：2015/6/12 16:29:00
-- [求助]提取数据出错
我要根据身份证号码提取数据，但是代码运行出错。我几乎完全照搬照抄啊。
如下代码在datacolchanged事件中无法运行。
代码如下：
Select Case e.DataCol.name
Case "身份证号"
If e.DataRow.IsNull("身份证") Then
e.DataRow("毕业中学") = Nothing
Else
Dim bm As String = e.DataRow("身份证号")
Dim dr As DataRow = DataTables("身份证毕业中学").Find("身份证号 = \'" & bm & "\'")
If dr IsNot Nothing Then
e.DataRow("毕业中学") = dr("毕业中学")
End If
End If
End Select
此主题相关图片如下：2015-06-12_163450.png
[此贴子已经被作者于2015/6/12 16:36:01编辑过]
-- 发布时间：2015/6/12 16:37:00
--
报错提示
此主题相关图片如下：2015-06-12_163632.png
-- 发布时间：2015/6/12 16:53:00
--
你看看另外一张表表名是不是身份证毕业中学 身份证号,毕业中学 列名有没有写错?
-- 发布时间：2015/6/12 17:32:00
--
表名或列名写错
-- 发布时间：2015/6/12 18:47:00
--
表名没有写错。我刻意写成 身份证毕业中学。 列名 也没有错误。
此主题相关图片如下：2015-06-12_184526.png
此主题相关图片如下：2015-06-12_184607.png
[此贴子已经被作者于2015/6/12 18:47:19编辑过]
-- 发布时间：2015/6/12 18:49:00
--
如果这个代码不行。最好还是能在按钮上面运行代码。 估计按钮的代码好使 。 在datacolchanged 事件中。这个代码还得身份证号有变动才行。
-- 发布时间：2015/6/12 18:53:00
--
Select Case e.DataCol.name
Case "身份证号"
If e.DataRow.IsNull("身份证号") Then
e.DataRow("毕业中学") = Nothing
Else
Dim bm As String = e.DataRow("身份证号")
Dim dr As DataRow = DataTables("身份证毕业中学").Find("身份证号 = \'" & bm & "\'")
If dr IsNot Nothing Then
e.DataRow("毕业中学") = dr("毕业中学")
End If
End If
End Select
这个代码对了。 谢谢大红包