代码检查 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码检查

共有3540人关注过本帖树形打印复制链接主题：代码检查

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 11:33:00 [显示全部帖子]

if 只会执行其中一个，每一段都要这样写

If User.IsRole("部门负责人") Then

For Each r As Row In Tables("HTB").GetCheckedRows

Tables("HTB").Current("HTSH") = User.Name

Tables("HTB").Current.Save()

For Each r As Row In Tables("XMJDB").GetCheckedRows

Tables("XMJDB").Current("BMSH") = User.Name

Tables("XMJDB").Current.Save()

Else

MessageBox.show("你无审核权限!")

End If

[此贴子已经被作者于2014-8-21 11:32:50编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 11:41:00 [显示全部帖子]

不可能不执行啊。

你msgbox(user.Roles) 看看，看得到的值是否有错啊。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 11:43:00 [显示全部帖子]

先看五楼，再者，你这段代码明细不合理，Tables("xxx").Current 要改成 r

If User.IsRole("部门负责人") Then

For Each r As Row In Tables("HTB").GetCheckedRows

r("HTSH") = User.Name

Tables("HTB").Current.Save()

For Each r As Row In Tables("XMJDB").GetCheckedRows

r("BMSH") = User.Name

r.Save()

Else

MessageBox.show("你无审核权限!")

End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 14:16:00 [显示全部帖子]

无关红色代码的问题，其它代码影响了，你自己排查一下原因。

或者你直接修改BMSH，看填表人是否会变。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 14:55:00 [显示全部帖子]

单独执行这一段代码，看效果。

For Each r As Row In Tables("ZJJHB").GetCheckedRows

If Tables("ZJJHB").current.IsNull("SBR") Then

MessageBox.Show("未经上报的数据不允许审核!.")

Else

Tables("ZJJHB").Current("SHR") = User.Name

Tables("ZJJHB").Current.Save()

End If

For Each r As Row In Tables("HTB").GetCheckedRows

Tables("HTB").Current("HTSH") = User.Name

Tables("HTB").Current.Save()

For Each r As Row In Tables("XMJDB").GetCheckedRows

Tables("XMJDB").Current("BMSH") = User.Name

Tables("XMJDB").Current.Save()

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 15:12:00 [显示全部帖子]

你去看这个表事件【表，ZJSQB，DataColChanged】

有可能是你用substring的时候，出错了。代码贴出来看看，

或者，自己调试一下 http://www.foxtable.com/help/topics/1485.htm

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 15:25:00 [显示全部帖子]

以下是引用爱相随在2014-8-21 15:20:00的发言：
老师，有个问题，是自动生成单据号，根据日期，如果月份小于10，可以自动生成单据号，如果月份大于10，不能自动生成单据号，并提示上述错误，是什么原因呢？？

substring的时候，不要写死。

max.substring(9,3) 改成 max.substring(bh.length,3)

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 16:49:00 [显示全部帖子]

呃，你在什么情况下转换，转换到哪里？

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 17:02:00 [显示全部帖子]

以下是引用爱相随在2014-8-21 16:59:00的发言：
比如在表A的小写列填在500，在表A的大写列自动填写伍佰元整

DatacolChanged事件

If e.DataCol.name = "小写" Then
e.DataRow("大写") = CUMoney(e.DataRow("小写"))
End If

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/21 17:09:00 [显示全部帖子]

DatacolChanged事件

If e.DataCol.name = "小写" Then
e.DataRow("大写") = CUMoney(e.DataRow("小写"))
End If

-----------------

If e.DataCol.Name = "实际申请金额" Then
e.DataRow("dxje")= CUMoney(e.DataRow("实际申请金额"))
End If

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：代码检查