Foxtable(狐表) → 用户栏目 → 专家坐堂 → “圆钢”的数值变化，却是会反应到第一行去了 ，怎样才能让其同步变化在同一行的相应列上？


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

主题：“圆钢”的数值变化，却是会反应到第一行去了 ，怎样才能让其同步变化在同一行的相应列上？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：902 积分：8264 威望：0 精华：0 注册：2012/10/19 13:55:00 		“圆钢”的数值变化，却是会反应到第一行去了 ，怎样才能让其同步变化在同一行的相应列上？  发帖心情 Post By：2019/4/1 16:48:00 [只看该作者]

当点击“入库明细表”中的“入库筐架”列的下拉窗口（不是第一行）输入数据后，
后面的列，如：“圆钢”的数值变化，却是会反应到第一行去了 ，怎样才能让其同步变化在同一行的相应列上？

[此贴子已经被作者于2019/4/30 10:01:32编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111626 积分：568248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 16:54:00 [只看该作者]

Dim ss As String = "圆钢|不锈钢|袋子|铁箱|塑箱|冰盘|铁托|木托|铁架|大网笼|小网笼|圆桶|大网筐|小网筐|方桶"
Dim str As String = ""
Dim r As Row =  Tables(e.Form.DropTable.Name).Current
For i As Integer = 0 To ss.Split("|").Length - 1
    If Val(e.Form.controls("textbox" & i+1).text) > 0 Then
        str &= e.Form.controls("textbox" & i+1).text & ss.Split("|")(i)
        r(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text
    Else
        r(ss.Split("|")(i)) = Nothing
    End If
Next
e.Form.DropDownBox.value = str.trim("")
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：902 积分：8264 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2019/4/1 17:14:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.10.9.1
错误所在事件：SystemIdle
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index

[此贴子已经被作者于2019/4/30 10:01:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：902 积分：8264 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点蓝）Dim ss As String = "圆钢|不锈钢|袋...  发帖心情 Post By：2019/4/1 17:48:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：)_25hozk0bkk4d1z%%6d2b.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：902 积分：8264 威望：0 精华：0 注册：2012/10/19 13:55:00 		  发帖心情 Post By：2019/4/1 18:17:00 [只看该作者]

点击窗口中的新增一行按钮，会出现错误

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

窗口currentChanged事件加入红色代码

 

If e.Table.current Is Nothing Then Return
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("入库订单表").FindRow(dr)
msgbox(wz)
If wz >=0 Then
      Tables("入库订单表").Position = wz
End If

 
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：902 积分：8264 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点甜）窗口currentChanged事件加入红色代码...  发帖心情 Post By：2019/4/1 20:09:00 [只看该作者]

窗口代码改了，还是不行，点击窗口中的“入库订单表”，点击新增一行，直接坏掉？


.NET Framework 版本：2.0.50727.8800
Foxtable 版本：2018.10.9.1
错误所在事件：SystemIdle
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index


[此贴子已经被作者于2019/4/30 10:01:56编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111626 积分：568248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 20:34:00 [只看该作者]

我测试没有问题。把项目里的额bin目录删除掉，重启项目测试

 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：902 积分：8264 威望：0 精华：0 注册：2012/10/19 13:55:00 		回复：（有点蓝）我测试没有问题。把项目里的额bin目录...  发帖心情 Post By：2019/4/1 21:18:00 [只看该作者]

确定测试了无数次，bin也删了，刚发到论坛的压缩包，我自己也另外解压了，也错误，就连数据源地址也调整过，不行啊！
要不，老师，您再下载，测试看看：

[此贴子已经被作者于2019/4/30 10:02:20编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111626 积分：568248 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 21:23:00 [只看该作者]

点击那里，做什么操作有问题？

不然你就把菜单事件里的SystemIdle事件代码清除掉
 回到顶部
总数 33 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询