| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 不同的表判断 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123845) |
| -- 作者：yangwenghd -- 发布时间：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 订平编号 列选中的行的内容与 订单附产品表 的联订平号 列是否有相同，如果没有就还是执行红色代码，如果有就执行蓝色代码，感谢 感谢 |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：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 -- 发布时间：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+") 呢？感谢 感谢
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：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 平台属性_商品编号 选择的行是否有与订单附平台表 订单联号_联平管号列相同的行，是那里不对啊，感谢 感谢
|
| -- 作者：有点蓝 -- 发布时间：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
|