这个代码，在家电脑上执行挺好，但是把整个文件夹和实例复制到公司电脑上，代码不执行，检查代码一点问题没有，是咋回事。
代码如下：
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim zjzh As Integer
Dim zjzh1 As DataRow
zjzh1 = DataTables("原始数据中间转换").Find("[_IDENTIFY] = '" & e.Table.Current("_IDENTIFY") & "'")
If zjzh1 IsNot Nothing Then
zjzh = Tables("原始数据中间转换").FindRow(zjzh1)
If zjzh >= 0 Then
Tables("原始数据中间转换").Position = zjzh
End If
End If 'Y以上选择本表,定位到钾离子表
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim jlz As Integer
Dim jlz1 As DataRow
jlz1 = DataTables("钾离子计算公式").Find("[_IDENTIFY] = '" & e.Table.Current("_IDENTIFY") & "'")
If jlz1 IsNot Nothing Then
jlz = Tables("钾离子计算公式").FindRow(jlz1)
If jlz >= 0 Then
Tables("钾离子计算公式").Position = jlz
End If
End If
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
Dim zyd As Integer
Dim zyd1 As DataRow
zyd1 = DataTables("总硬度计算公式").Find("[_IDENTIFY] = '" & e.Table.Current("_IDENTIFY") & "'")
If zyd1 IsNot Nothing Then
zyd = Tables("总硬度计算公式").FindRow(zyd1)
If zyd >= 0 Then
Tables("总硬度计算公式").Position = zyd
End If
End If
[此贴子已经被作者于2018/3/21 8:50:22编辑过]
加好友 
发短信
Post By：2018/3/20 17:30:00 [只看该作者]
此主题相关图片如下：qq截图20180320171232.jpg
