以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 单条如何加条件? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188116) |
|
-- 作者:lin98 -- 发布时间:2023/9/2 14:20:00 -- 单条如何加条件? Dim dr As Row = Tables("主表").Current \' If dr Is Nothing Then Else Dim r As Row = Tables("窗口_表A").Current \' Dim Cols1() As String = {"列一", "列二", "列三"} \' Dim Cols2() As String = {"列一", "列二", "列三"} \' For i As Integer = 0 To Cols1.Length - 1 dr(Cols2(i)) = r(Cols1(i)) Next End If 上面是没有条件,单条引用, 如何加条件单条引用?如何实现引用表A的[选中] = true ,单条引用?
|
|
-- 作者:有点蓝 -- 发布时间:2023/9/2 14:24:00 -- http://www.foxtable.com/webhelp/topics/0396.htm Dim dr As DataRow
dr = DataTables("产品").Find("[选中] = true") |
|
-- 作者:lin98 -- 发布时间:2023/9/2 15:30:00 --
|
|
-- 作者:有点蓝 -- 发布时间:2023/9/2 16:25:00 -- 窗口没有打开,判断一下,打开再使用 |
|
-- 作者:lin98 -- 发布时间:2023/9/2 17:55:00 -- 没看明白 |
|
-- 作者:有点蓝 -- 发布时间:2023/9/3 19:56:00 -- 如果窗口没有打开,使用里面的控件就会出错:http://www.foxtable.com/webhelp/topics/0705.htm If Forms("登记窗口").Opened Then
If DataTables("表A").compute("count(_identify)", "订单单号 is null") = 0 Then forms("登记窗口").controls("新增").enabled = True ……End If [此贴子已经被作者于2023/9/3 19:57:04编辑过]
|