以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单条如何加条件？  (http://foxtable.net/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
--  
选中-表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
--  作者：有点蓝
--  发布时间：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编辑过]