以文本方式查看主题

-  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
--  
选中-表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编辑过]