Foxtable(狐表)用户栏目专家坐堂 → 求助未找到列


  共有3069人关注过本帖树形打印复制链接

主题:求助未找到列

帅哥哟,离线,有人找我吗?
frankcat
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:52 积分:448 威望:0 精华:0 注册:2019/8/7 20:12:00
求助未找到列  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/7 17:52:00 [只看该作者]

If  DataTables("page").compute("count(Fdate)","Fdate = '" & dtp.value & "' And CBid =  " & id1) = 0 Then

 回到顶部
帅哥哟,离线,有人找我吗?
frankcat
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:52 积分:448 威望:0 精华:0 注册:2019/8/7 20:12:00
  发帖心情 Post By:2020/1/7 17:57:00 [只看该作者]

谢谢老师,动态表达式没有理解透

 回到顶部
帅哥哟,离线,有人找我吗?
frankcat
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:52 积分:448 威望:0 精华:0 注册:2019/8/7 20:12:00
  发帖心情 Post By:2020/1/7 18:09:00 [只看该作者]

老师再请教一下,Dim id1 As Integer = CurrentTable.Current("_Identify"),这个代码里面的值没有跟着case代码走,一直默认表的第一行,这个变量该怎么定义

 回到顶部
帅哥哟,离线,有人找我吗?
frankcat
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:52 积分:448 威望:0 精华:0 注册:2019/8/7 20:12:00
  发帖心情 Post By:2020/1/7 18:12:00 [只看该作者]

搞定了

 


 回到顶部