Foxtable(狐表)用户栏目专家坐堂 → 单条如何加条件?


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

主题:单条如何加条件?

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
单条如何加条件?  发帖心情 Post By: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 ,单条引用

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110495 积分:562359 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/2 14:24:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0396.htm

Dim dr As DataRow
dr = 
DataTables("产品").Find("
[选中] = true")

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/9/2 15:30:00 [只看该作者]

选中-表A的选中字段,报错
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:表,表A,DataColChanged
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。

排查一下,是下面代码,不知道下面的代码与表A的选中字段,为何会发生冲突,如何解决?
If DataTables("表A").compute("count(_identify)", "订单单号 is null") = 0 Then
    forms("登记窗口").controls("新增").enabled = True
Else
    forms("登记窗口").controls("新增").enabled = False
End If




 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

窗口没有打开,判断一下,打开再使用

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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2023/9/2 17:55:00 [只看该作者]

没看明白

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110495 积分:562359 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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编辑过]

 回到顶部