Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不同的表判断


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

主题：不同的表判断
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		不同的表判断  发帖心情 Post By：2018/8/24 13:15:00 [只看该作者]

能帮忙看看在吗?感谢 感谢 

判断订单附平台表的联订单号列内与窗口1的Label30相同的行   内   的窗口1_Table1 订平编号 列选中的行的内容与 订单附产品表 的联订平号 列是否有相同的。
如果没有就执行红色代码，
     Dim dra As Row = Tables("订单附平台表").addnew
    dra("订单联号_联订单号")=e.form.controls("Label4").text

如果有就执行蓝色代码，感谢 感谢 
    Dim dr As Row = Tables("订单附产品表").addnew
    dr("订单号据_联订平号")= Tables("订单商管选择窗口_Table3").Current("订单联号_订平编号")

如果在绿色代码判断时没找到相同的行也执行红色代码，
麻烦了 感谢 感谢。

其实就是有两个判断，第一就是找到 订单附平台表的联订单号列内与窗口1的Label30相同的行，如果没有找到执行红色代码，如果找到了就在判断窗口1_Table1 订平编号 列选中的行的内容与 订单附产品表 的联订平号 列是否有相同，如果没有就还是执行红色代码，如果有就执行蓝色代码，感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/24 13:59:00 [只看该作者]

Label30填写的是什么内容，和哪个列对应？

这些都是最基本的语法，到现在都还不会么。

dim dr as datarow = datatables("订单附平台表").find("某列='" & e.form.controls("Label30").text & "'")
if dt is nothing then
没找到
else
找到
endif
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/8/24 14:21:00 [只看该作者]

Label30是绑定的订单表的订单编号列 （单独的一个表的一列）学了一段时间，学了又忘记了，学了又忘记了，我实在是没有办法啊，平时我都是在帮助里面去找案例，尽量看懂，找不到，看不懂的时候就在到论坛，感谢 感谢 
订单附平台表的联订单号列与Label30相同的行，（Label30也就是订单表的订单编号列选择的行）再在订单附平台表的联订单号列判断出的行的内判断窗口1_Table1 订平编号 列选中的行的内容与 订单附产品表 的联订平号 列是否有相同。

相当于要执行两种代码，一个A= 一个是A+
然后判断的方式是
 表a 的第一列a 选中的行的内容(也就是Label30绑定的)与表B的第一列B列是否有有相同的，如果没有执行代码A= ，如果有就再判断在这些判断出相同的行内是否有与表C第一列c选择的行（窗口1_Table1 订平编号 列选中的行）的内容与表B第二列b有没相同的行，如果有执行代码A+，如果没有执行A=，
感谢 感谢，其实我能说清都要理很长一天，不怕你笑，我真的很笨，感谢 感谢 

[此贴子已经被作者于2018/8/24 14:54:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/8/25 15:18:00 [只看该作者]

Dim dr As DataRow = DataTables("订单附平台表").find("订单联号_联订单号='" & e.form.controls("Label30").text & "'")
If dr Is Nothing Then
    msgbox("A+")
Else
    msgbox("A=")
End If

为什么订单附平台表的订单联号_联订单号列有没有 与Label30相同的都还是弹出msgbox("A+") 呢？感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/25 15:25:00 [只看该作者]


Dim cnt As Integer = Tables("订单附平台表").Compute("count(订单联号_联订单号)","订单联号_联订单号='" & e.form.controls("Label30").text & "'")
If cnt = 0 Then
    msgbox("A+")
Else
    msgbox("A=")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/8/25 16:02:00 [只看该作者]

Dim dr As DataRow = DataTables("订单附平台表").find("订单联号_联订单号='" & e.form.controls("Label40").text & "'")
'Dim dra As DataRow = DataTables("订单附平台表").find("订单联号_联平管号='" & e.DataTables("订单商管选择窗口_Table1").find("平台属性_商品编号").text & "'")
If dr Is Nothing Then
    msgbox("没相同")
Else
    If dra Is Nothing Then
        msgbox("没相同")
    Else
        msgbox("有相同")
    End If
End If

红色在代码在蓝色的基础上判断，订单商管选择窗口_Table1 平台属性_商品编号 选择的行是否有与订单附平台表 订单联号_联平管号列相同的行，是那里不对啊，感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/25 16:15:00 [只看该作者]

Dim dr As DataRow = DataTables("订单附平台表").find("订单联号_联订单号='" & e.form.controls("Label40").text & "'")

If dr Is Nothing Then
    msgbox("没相同")
Else
    Dim dra As DataRow = DataTables("订单附平台表").find("订单联号_联平管号='" & dr("平台属性_商品编号") & "'")
    If dra Is Nothing Then
        msgbox("没相同")
    Else
        msgbox("有相同")
    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.08594 秒, 4 次数据查询