以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助未找到列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145083)
--  作者：frankcat
--  发布时间：2020/1/7 17:49:00
--  求助未找到列

老师，这段代码，运行到判断语句的时候提示未找到列[id1],数据类型都是整数

 

If Forms("凭证生成").opened AndAlso e.DataCol.name = "posstation"
Dim dtp As WinForm.DateTimePicker = Forms("凭证生成").Controls("Date1")
Dim dtp1 As Date = dtp.value

If e.DataRow("date") <> dtp.value Then Return
    Select Case e.newvalue
          Case "西餐厅"
       Dim id1 As Integer = CurrentTable.Current("_Identify")
       messagebox.show(id1)
          If  DataTables("page").compute("count(Fdate)","Fdate = \'" & dtp.value & "\' And CBid =  id1") = 0 Then
                
                    Dim dr As DataRow = DataTables("page").AddNew()
                    dr("CBid") = e.DataRow("_Identify")
                    dr("Fdate") = e.DataRow("date")
                    dr("FYear") = dtp1.year
                    dr("FPeriod") = dtp1.month
                    dr("FAccountNum") = "500.02.001"
                 End If
     End Select
End If
--  作者：有点蓝
--  发布时间：2020/1/7 17:52:00
--  
If  DataTables("page").compute("count(Fdate)","Fdate = \'" & dtp.value & "\' And CBid =  " & id1) = 0 Then
--  作者：frankcat
--  发布时间：2020/1/7 17:57:00
--  
谢谢老师，动态表达式没有理解透
--  作者：frankcat
--  发布时间：2020/1/7 18:09:00
--  
老师再请教一下，Dim id1 As Integer = CurrentTable.Current("_Identify")，这个代码里面的值没有跟着case代码走，一直默认表的第一行，这个变量该怎么定义
--  作者：frankcat
--  发布时间：2020/1/7 18:12:00
--  

搞定了