在做存货选择这块，用下面第一种代码，是没有问题的，但是用第二种代码，为何数据就转不到当前表呢？？
--------第一种代码------------------
Dim Cols1() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
Dim Cols2() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
For Each r1 As Row In Tables("存货选择_table1").GetCheckedRows
For i As Integer = 0 To Cols1.Length -1
Dim r2 As Row = Tables("订单明细").Current
r2(Cols2(i)) = r1(Cols1(i))
Next
Next
Forms("存货选择").close
--------第二种代码------------------
Dim Cols1() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
Dim Cols2() As String = {"存货编码","存货中文名","规格型号","品牌","主计量单位"}
For Each r1 As Row In Tables("存货选择_table1").GetCheckedRows
For i As Integer = 0 To Cols1.Length -1
Dim r2 As Row = ??????
r2(Cols2(i)) = r1(Cols1(i))
Next
Next
Forms("存货选择").close
是直接在表中编码的，通过cellbuttomclick触动，好像没有直接e.row，写什么好啊
[此贴子已经被作者于2016/2/12 2:11:33编辑过]
加好友 
发短信
Post By：2016/2/12 2:06:00 [只看该作者]
