Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教关于逻辑列跨表填充是转换成金额。


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

主题：请教关于逻辑列跨表填充是转换成金额。
帅哥哟，离线，有人找我吗？
jamhuton
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		请教关于逻辑列跨表填充是转换成金额。  发帖心情 Post By：2015/12/28 16:46:00 [只看该作者]

比如表A有一个逻辑列，填充到表B的时候，打勾的列转换成200填入

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


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

你原本的代码怎么写的？

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


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		  发帖心情 Post By：2015/12/29 9:53:00 [只看该作者]

If e.DataCol.Name = "fa piao号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("查验费") = Nothing
    Else
        Dim dr As Boolean
        dr = DataTables("进口业务进度表").Find("[fa piao号码] = '" & e.NewValue & "'")
        If dr =True
            e.DataRow("查验费") = 200
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataCol.Name = "fa piao号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("查验费") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("进口业务进度表").Find("[fa piao号码] = '" & e.NewValue & "'")
        If dr("打勾") = True
            e.DataRow("查验费") = 200
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
jamhuton
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		  发帖心情 Post By：2015/12/29 10:04:00 [只看该作者]

老师，这个引用表的代码，那么被引用表的表的代码需要吗？
Select Case e.DataCol.Name
    Case "查验"
        Dim Filter As String = "[fa piao号码] = '" & e.DataRow("fa piao号码") & "'"
        Dim drs As List(Of DataRow) = DataTables("账单明细").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 不需要

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


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		  发帖心情 Post By：2015/12/29 10:12:00 [只看该作者]

If e.DataCol.Name = "fa piao号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("海关查验") = Nothing
        e.DataRow("商检查验") = Nothing
        e.DataRow("加急费") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("进口业务进度表").Find("[fa piao号码] = '" & e.NewValue & "'")
        If dr("打勾") = True
            e.DataRow("海关查验") = 200
            e.DataRow("商检查验") = 200
            e.DataRow("加急费") = 200
        End If
    End If
End If

这个代吗有问题麽？
 回到顶部
帅哥哟，离线，有人找我吗？
jamhuton
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		  发帖心情 Post By：2015/12/29 10:14:00 [只看该作者]

只要2个表的列名相同就可以这样数据转换？
 回到顶部
帅哥哟，离线，有人找我吗？
jamhuton
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		  发帖心情 Post By：2015/12/29 10:20:00 [只看该作者]


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


加好友 发短信
等级：二尾狐 帖子：502 积分：3620 威望：0 精华：0 注册：2015/4/21 22:45:00 		  发帖心情 Post By：2015/12/29 10:25:00 [只看该作者]

Select Case e.DataCol.Name
    Case "海关查验","商检查验","加急"
        Dim Filter As String = "[fa piao号码] = '" & e.DataRow("fa piao号码") & "'"
        Dim drs As List(Of DataRow) = DataTables("账单明细").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select

被引用表代码

If e.DataCol.Name = "fa piao号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("海关查验") = Nothing
        e.DataRow("商检查验") = Nothing
        e.DataRow("加急") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("进口业务进度表").Find("[fa piao号码] = '" & e.NewValue & "'")
        If dr("打勾") = True
            e.DataRow("海关查验") = 200
            e.DataRow("商检查验") = 200
            e.DataRow("加急") = 200
        End If
    End If
End If

引用表代码



结果出来这样



图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询