共30 条记录, 每页显示 10 条, 页签: [1] [2][3]

标题：表属性代码如何窗口上的代码？

1楼

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

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

2楼

有点蓝 发表于：2025/3/31 11:12:00

Dim dr As DataRow = tables("xx表").current.datarow

3楼

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"，如何改？

4楼

有点蓝 发表于：2025/3/31 14:54:00

这个表没有这个列名，换个其它名称

5楼

lgz518 发表于：2025/3/31 15:17:00

If dr("用户ID") = _用户ID Then

改为下面，还是报错，提示("编辑人")不属于"窗口_Table1"，

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

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

6楼

有点蓝 发表于：2025/3/31 15:33:00

前台没有加载这2个列

7楼

lgz518 发表于：2025/3/31 15:52:00

Dim SqGl = "selecGt * from 表A where ([用户ID] = @用户ID )

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

8楼

有点蓝 发表于：2025/3/31 16:20:00

错误提示不会骗人的，说没有肯定就没有。窗口表能看到这2个列名吗

9楼

lgz518 发表于：2025/3/31 17:09:00

If dr("用户ID") = _用户ID Then

改为下面，还是报错，提示("编辑人")不属于"窗口_Table1"，

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

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

此主题相关图片如下：条件问题.jpg

10楼

有点蓝 发表于：2025/3/31 17:23:00

后台表绑定表控件后，窗口表能看到这2个列名吗？

共30 条记录, 每页显示 10 条, 页签: [1] [2][3]