- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于自动输入的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18206)
-- 发布时间：2012/4/6 9:35:00
-- [求助]关于自动输入的问题
看了CASESTUDY中的例子，然后应用时发现出现如下错误：
此主题相关图片如下：3432.jpg
我的表是外部数据表，里面有_Identify和Locked字段，是不是因为这个才出现这个错误？
怎么解决呢？
代码：
以下内容为程序代码:
1 If e.DataCol.Name = "damx" Then
2 Dim dr As DataRow
3 dr = DataTables("flk").Find("[damx] = \'" & e.DataRow("damx") & "\'")
4 If dr IsNot Nothing Then
5 e.DataRow("flh") = dr("flh")
6 e.DataRow("flmc") = dr("flmc")
7 e.DataRow("zt") = dr("zt")
8 e.DataRow("ztbh") = dr("ztbh")
9 e.DataRow("bgqx") = dr("bgqx")
10 Else
11 e.DataRow("flh") = Nothing
12 e.DataRow("flmc") = Nothing
13 e.DataRow("zt") = Nothing
14 e.DataRow("ztbh") = Nothing
15 e.DataRow("bgqx") = Nothing
16 End If
17 End If
18
1 If e.DataCol.Name = "damx" Then
2 Dim dr As DataRow
3 dr = DataTables("flk").Find("[damx] = \'" & e.DataRow("damx") & "\'")
4 If dr IsNot Nothing Then
5 e.DataRow("flh") = dr("flh")
6 e.DataRow("flmc") = dr("flmc")
7 e.DataRow("zt") = dr("zt")
8 e.DataRow("ztbh") = dr("ztbh")
9 e.DataRow("bgqx") = dr("bgqx")
10 Else
11 e.DataRow("flh") = Nothing
12 e.DataRow("flmc") = Nothing
13 e.DataRow("zt") = Nothing
14 e.DataRow("ztbh") = Nothing
15 e.DataRow("bgqx") = Nothing
16 End If
17 End If
18
[此贴子已经被作者于2012-4-6 9:36:17编辑过]
-- 发布时间：2012/4/6 9:43:00
--
你贴出的代码不齐。
-- 发布时间：2012/4/6 10:21:00
--
实际的代码还要整齐了，这和这个没关系的吧？
-- 发布时间：2012/4/6 10:27:00
--
你把其中的dr改为dr1
-- 发布时间：2012/4/6 10:31:00
--
在第二项前加单引号’或直接去掉第二行！