Foxtable(狐表)用户栏目专家坐堂 → 隔行选择批量输入值


  共有2845人关注过本帖树形打印复制链接

主题:隔行选择批量输入值

帅哥哟,离线,有人找我吗?
yetle
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
隔行选择批量输入值  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 18:01:00 [只看该作者]

你贴的例子和你贴的代码,有什么关系?

 

你写的代码没问题,如果出错,具体实例发上来测试。


 回到顶部
帅哥哟,离线,有人找我吗?
yetle
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:858 积分:6381 威望:0 精华:0 注册:2017/2/13 9:04:00
  发帖心情 Post By:2018/10/19 8:53:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:隔行选择.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部