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


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

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


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：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("")
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 20:34:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 21:23:00 [显示全部帖子]

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

不然你就把菜单事件里的SystemIdle事件代码清除掉
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 21:56:00 [显示全部帖子]

点击单元格，只是弹出一个提示框。没有什么错误啊。如果不想要提示框，删除提示框代码不就行了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 22:08:00 [显示全部帖子]

我测试没有问题。

删除只是不能在右下状态栏显示统计值，没有其他影响，大部分情况都没有什么用
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/1 22:40:00 [显示全部帖子]

所有表的currentchanged事件都加上6楼那样的判断。学会理解代码啊，不要别人说一句才会改一句。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/2 9:45:00 [显示全部帖子]

入库订单表主表，currentchanged，去掉原来的代码，改为

If e.Table.current Is Nothing Then Return
'换行时,同客户列同步:
Tables("客户表").filter = ""
Dim i = Tables("客户表").FindRow("客户 = '" & e.Table.current("客户") & "'")
If i>=0 Then
    Tables("客户表").position = i
Else
    Tables("客户表").filter = "1=2"
End If

'入库订单表_入库明细表--模拟关联表:
If Forms("意和表窗口").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    i = Tables("意和表窗口_入库订单表").FindRow(e.Table.current.DataRow)
    If i>=0 Then
        Tables("意和表窗口_入库订单表").position = i
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111653 积分：568389 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/2 10:17:00 [显示全部帖子]

If e.Table.current Is Nothing Then Return
'换行时,同客户列同步:
Tables("客户表").filter = ""
Dim i = Tables("客户表").FindRow("客户 = '" & e.Table.current("客户") & "'")
If i>=0 Then
    Tables("客户表").position = i
Else
    Tables("客户表").filter = "1=2"
End If

'入库订单表_入库明细表--模拟关联表:
If Forms("意和表窗口").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    i = Tables("意和表窗口_入库订单表").FindRow(e.Table.current.DataRow)
    If i>=0 Then
        Systemready = False
        Tables("意和表窗口_入库订单表").position = i
        Systemready = True
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询