| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 当前表的当前行，如何写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80926) |
| -- 作者：judyhu2008 -- 发布时间：2016/2/12 2:06:00 -- 当前表的当前行，如何写 在做存货选择这块，用下面第一种代码，是没有问题的，但是用第二种代码，为何数据就转不到当前表呢？？ --------第一种代码------------------ 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编辑过]
|
| -- 作者：Hyphen -- 发布时间：2016/2/12 10:24:00 -- cellbuttomclick有 e.row啊 楼上的代码似乎有问题，如果GetCheckedRows有多行的情况下，Tables("订单明细").Current 只能得到最后一行的值
|