老师好： 下面代码出错，请帮忙看看是什么问题，谢谢！
---------------------------
错误
---------------------------
编译错误:“r”是“Private”，因此它在此上下文中不可访问。
错误代码：If r.Checked = True Then
---------------------------
确定
---------------------------
For Each r As Row In Tables("转移过账_上传预览table1").Rows ''遍历所有行
If r.IsNull("移动数量") = False Then ''如果行的数量不为空,设其复选框为选中
r.Checked = True
Else r.Checked = False '如果没有选中,弹出提示
MessageBox.show(r.Index+1 & "行" & r("描述") & vbcrlf & """移动数量"" 不能为空!")
End If
Next
If r.Checked = True Then '对复选选中的行进行批量操作
Dim r1 As Row = Tables("库存").AddNew() '定义在表库存中增加行
If r("移动代码").StartsWith(2) Then '假如以2开头,按照下列规则增加行
Dim r1 As Row = Tables("库存").AddNew()
r1("物料描述") = r("描述")
r1("移动单元") = r("移动单元")
r1("移动代码") = r("移动代码")
r1("移动文本") = r("移动文本")
r1("移动数量") = r("移动数量")
r1.Save()
ElseIf r("移动代码").StartsWith(1) AndAlso r("接收单元") <> "0" Then '假如以1开头,并且行值不为0,按下面规则增加行
Dim r1 As Row = Tables("库存").AddNew()
r1("物料描述") = r("描述")
r1("移动单元") = r("接收单元")
r1("移动代码") = r("移动代码")
r1("移动文本") = r("移动文本")
r1("移动数量") = r("移动数量")
r1.Save()
End If
If r("移动代码").StartsWith(3) Then '假如以3开头,按下面规则增加行
Dim r1 As Row = Tables("库存").AddNew()
r1("物料描述") = r("描述")
r1("移动单元") = r("移动单元")
r1("移动代码") = r("移动代码")
r1("移动文本") = r("移动文本")
r1("移动数量") = -r("移动数量")
r1.Save()
ElseIf r("移动代码").StartsWith(1) Then '假如以1开头,按下面规则增加行
Dim r1 As Row = Tables("库存").AddNew()
r1("物料描述") = r("描述")
r1("移动单元") = r("移动单元")
r1("移动代码") = r("移动代码")
r1("移动文本") = r("移动文本")
r1("移动数量") = -r("移动数量")
r1.Save()
End If
r.Delete() '以上所有行增加到r1表之后,删除r表中对应的行
End If
加好友 
发短信
Post By：2015/12/29 13:30:00 [显示全部帖子]
