Foxtable(狐表)用户栏目专家坐堂 → 表达式列能否批量修改数据?


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

主题:表达式列能否批量修改数据?

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


加好友 发短信
等级:婴狐 帖子:43 积分:360 威望:0 精华:0 注册:2015/7/8 13:44:00
  发帖心情 Post By:2015/9/7 17:15:00 [只看该作者]

表达式列引用其它表的图片进去?完全不懂呀,彻底崩溃了。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150907171319.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/7 17:17:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:43 积分:360 威望:0 精华:0 注册:2015/7/8 13:44:00
  发帖心情 Post By:2015/9/9 12:09:00 [只看该作者]

大红袍老师,请帮我看看代码,我不知道是不是我哪里写错了,我三个表需要联动,一个“图片表”,一个“订单明细”表,一个"尺码表"。我在“订单明细”表的currentchange里面写的代码是这样的,我百思不得其解,为什么三个表就是不能同时定位呀?好郁闷呀。“图片”和“订单明细”靠“款号”联,“订单明细”和“尺码表”靠“PO”关联。

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回 '没有选定行时执行的代码
Else
     Dim dx As Integer = Tables("图片").FindRow("[款号] = '" & e.Table.current("款号") & "'")

    If dx >= 0 Then     

        Tables("图片").Position = dx 

    End If

End If

    Dim wz As Integer

    Dim dr As DataRow

        dr = DataTables("尺码表").Find("[PO] = '" & e.Table.Current("PO") & "'")

    If dr IsNot Nothing Then

    wz = Tables("尺码表").FindRow(dr)

    If wz >= 0 Then

        Tables("尺码表").Position = wz

    End If  '有选定行时执行的代码
End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/9 14:42:00 [只看该作者]

下面代码没有问题。不联动,说明找不到对应数据。

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回 '没有选定行时执行的代码
Else
    Dim dx As Integer = Tables("图片").FindRow("[款号] = '" & e.Table.current("款号") & "'")
   
    If dx >= 0 Then
       
        Tables("图片").Position = dx
       
    End If
   
    Dim wz As Integer
   
    wz = Tables("尺码表").FindRow("[PO] = '" & e.Table.Current("PO") & "'")
   
    If wz >= 0 Then
       
        Tables("尺码表").Position = wz
       
    End If  '有选定行时执行的代码
End If

 


 回到顶部
总数 14 上一页 1 2