以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表属性代码如何窗口上的代码?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196124)

--  作者:lgz518
--  发布时间:2025/3/31 11:00:00
--  表属性代码如何窗口上的代码?
 Dim dr As DataRow = e.DataRow
        
Dim pr As DataRow
        
If dr.IsNull("品名"OrElse dr.IsNull("型号"OrElse dr.IsNull("规格"Then

            dr(
"单价") = Nothing
        
Else
            
Dim filter As String
            filter = 
"品名 = \'" & dr("品名") & "\' And 型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\'"
            pr = 
DataTables("产品").Find(filter)
            If
 pr IsNot Nothing 
Then
                dr(
"单价") = pr("单价")
            End
 
If
        
End If

上面表属性代码如何窗口打开后的代码?


--  作者:有点蓝
--  发布时间:2025/3/31 11:12:00
--  
Dim dr As DataRow = tables("xx表").current.datarow
--  作者:lgz518
--  发布时间:2025/3/31 14:51:00
--  
Dim db = HySqGGl.DataBaseFactory.CreateDatabase("db") \'
Dim dr As DataRow = Tables("窗口_Table1").current.DataRow
If dr("用户ID") = _用户ID   Then
代码一
Else
代码二
End If

注:
("用户ID")是表A的字段
_用户ID 是全局变量

执行上面代码:报错提示("用户ID")不属于"窗口_Table1",如何改?

--  作者:有点蓝
--  发布时间:2025/3/31 14:54:00
--  
这个表没有这个列名,换个其它名称
--  作者:lgz518
--  发布时间:2025/3/31 15:17:00
--  
If dr("用户ID") = _用户ID   Then
改为下面,还是报错,提示("编辑人")不属于"窗口_Table1",

If dr("编辑人") = \'" & _Name & "\'"    Then


后台表A 的有“用户ID、编辑人”这二个字段,不知道为什么提示找不到,如何改?

--  作者:有点蓝
--  发布时间:2025/3/31 15:33:00
--  
前台没有加载这2个列
--  作者:lgz518
--  发布时间:2025/3/31 15:52:00
--  
   Dim SqGl = "selecGt * from  表A  where   ([用户ID] = @用户ID ) 

这个加载是全部的字段,不知为什么上面条件不行?

--  作者:有点蓝
--  发布时间:2025/3/31 16:20:00
--  
错误提示不会骗人的,说没有肯定就没有。窗口表能看到这2个列名吗
--  作者:lgz518
--  发布时间:2025/3/31 17:09:00
--  
If dr("用户ID") = _用户ID   Then
改为下面,还是报错,提示("编辑人")不属于"窗口_Table1",

If dr("制定人") = \'" & _Name & "\'"    Then


后台表A 的有“用户ID、制定人”这二个字段,不知道为什么提示找不到,如何改?



此主题相关图片如下:条件问题.jpg
按此在新窗口浏览图片


--  作者:有点蓝
--  发布时间:2025/3/31 17:23:00
--  
后台表绑定表控件后,窗口表能看到这2个列名吗?