- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 隔行选择批量输入值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126328)
-- 发布时间：2018/10/18 16:57:00
-- 隔行选择批量输入值
按照列子做了隔行选择，做批量输入的时候，只有最后一行输入了值
Dim pd As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox3")
If Tables("配色表").TopPosition>-1 Then
For i As Integer=Tables("配色表").BottomPosition To Tables("配色表").TopPosition Step -1
Tables("配色表").Rows(i)("配色信息")=pd.text
Next
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:隔行选择.table |
-- 发布时间：2018/10/18 18:01:00
--
你贴的例子和你贴的代码，有什么关系？
你写的代码没问题，如果出错，具体实例发上来测试。
-- 发布时间：2018/10/19 8:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:隔行选择.table |
-- 发布时间：2018/10/19 9:16:00
--
代码改成
Dim pd As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")
If Tables("表A").TopPosition>-1 Then
For Each p As Integer In ps
Tables("表A").Rows(p)("第一列")=pd.text
Next
End If