Foxtable(狐表) → 用户栏目 → 专家坐堂 → 写代码时没问题，运行也买有问题，从新运行时出问题，请专家诊断。


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

主题：写代码时没问题，运行也买有问题，从新运行时出问题，请专家诊断。
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/29 11:02:00 [显示全部帖子]

首先将代码中的CurrentTable全部改为e.Table

 

 

然后在开始位置增加一行代码：

 

 

If e.Table.Current Is Nothing Then

    return

End if
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/29 12:20:00 [显示全部帖子]

将设置好代码的表传上来，告诉我怎样操作出错。

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/29 14:40:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目91.rar
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/29 16:35:00 [显示全部帖子]

我们检查一下。

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/29 16:41:00 [显示全部帖子]

If e.Table.Rowsel < 0 Then
    Return
End If
Dim r As Row = e.Table.Current
If r Is Nothing Then
    Return
End If
Dim Sum0 As Decimal
Dim Sum1 As Decimal
Dim Sum2 As Decimal
Dim Sum3 As Decimal
Dim Sum4 As Decimal
Dim Sum5 As Decimal
Dim Sum6 As Decimal
Dim bh As Integer
bh = r("编号")
Sum0 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = "& bh &" And [业务内容] = '开收据'")
If Sum0<>0 Then
    r("开收据额") = Sum0
Else
    r("开收据额") = Nothing
End If
Sum1 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = "& bh &" And [业务内容] = '开fa piao'")
If Sum1<>0 Then
    r("已开piao额") = Sum1
Else
    r("已开piao额") = Nothing
End If
Sum2 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = "& bh &" And [业务内容] = '收预付款'")
If Sum2<>0 Then
    r("预付款") = Sum2
Else
    r("预付款") = Nothing
End If
Sum3 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = "& bh &" And [业务内容] = '收二期款'")
If Sum3<>0 Then
    r("二期款") = Sum3
Else
    r("二期款") = Nothing
End If
Sum4 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = "& bh &" And [业务内容] = '收结算款'")
Sum5 = Tables("财务数据录入").Compute("Sum(金额)", "[编号] = "& bh &" And [业务内容] = '收保留款'")
Sum6 = Sum2 + Sum3 + Sum4 + Sum5
If Sum6<>0 Then
    r("累计收款") = Sum6
Else
    r("累计收款") = Nothing
End If

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2011/6/29 17:58:00 [显示全部帖子]

等下次更新，15楼代码在切换视图的时候，就不会报错了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 6 次数据查询