| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]逻辑列提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163823) |
| -- 作者：huaziqiao1976 -- 发布时间：2021/4/26 0:22:00 -- [求助]逻辑列提示 If e.DataCol.Name = " 开票标识" AndAlso e.DataRow("开票标识") = True Then Dim nma() As String = {"金额","单号"} \'A表数据来源列 Dim nmb() As String = {"票单金额","对应票单"} \'B表数据接收列 Dim dr As DataRow = DataTables("进项发票").AddNew For i As Integer = 0 To nma.Length - 1 dr(nmb(i)) = e.DataRow(nma(i)) Next End If 不管在表内操作,还是在窗口操作都弹出调用目标发生了异常,未将对象引用设置到对象的实例。求指导(第一次使用逻辑列)
|
| -- 作者：有点蓝 -- 发布时间：2021/4/26 9:09:00 -- 关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。 |
| -- 作者：huaziqiao1976 -- 发布时间：2021/4/26 20:15:00 -- 是表事件中的 Forms("采购明细").Controls("NumericComboBox1").Value = Tables("采购明细").Compute("Sum(金额)") Forms("采购明细").Controls("NumericComboBox2").Value = Tables("采购明细").Compute("Sum(金额)") 这两个代码引起的,请问怎么加条件 |
| -- 作者：huaziqiao1976 -- 发布时间：2021/4/26 20:24:00 -- 可以了,If Forms("采购明细").OPENED Then |