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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请老师帮助

共有5382人关注过本帖树形打印复制链接主题：[求助]请老师帮助

有点甜

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

加好友

发短信

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

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

flt = "DWJM = '"& e.DataRow("DWJM") & "' And ND = '" & e.DataRow("ND") & "' And ZJY = '" & e.DataRow("ZJY") & "' And [_Identify] <> " & e.DataRow("_Identify")

有点甜

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

加好友

发短信

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

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

idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大单据编号的后四位顺序号,并加1

有点甜

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

加好友

发短信

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

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

If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows
        If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
            MessageBox.Show(r("单号") & "数据填列不完整,不允许上报,请检查!.")
        Else
            r("SBR") = User.Name
            r.Save()
        End If
    Next
Else
    MessageBox.show("你非数据填报人,无上报权限!")
End If

[此贴子已经被作者于2014-8-1 11:26:06编辑过]

有点甜

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

加好友

发短信

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

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

MessageBox.Show("单据号 " & r("JHBH") & " 数据填列不完整,不允许上报,请检查!.")

有点甜

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

加好友

发短信

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

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

If e.DataCol.Name = "SHYJ" Then

Dim K As String

Select Case K

Case K = "同意"

e.Datarow("SH1") = e.datarow("SQJE")

Case K = "修改"

e.Datarow("SH1") = " "

Case Else

e.Datarow("SH1") = "0"

End Select

End If

有点甜

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

加好友

发短信

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

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

For Each r As Row In Tables("ZJJHB").GetCheckedRows
    If r.IsNull("SHR") Then
        MessageBox.Show("填报部门未审核,不能审核!.")
    Else
        If r.IsNull("SHYJ") Then
            MessageBox.Show("审核意见为空,请检查!.")
        Else
            r("SH") = User.Name
            r.Save()
        End If
    End If
Next

有点甜

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

加好友

发短信

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

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

1、数据行加入人名、工作组名，判断一下即可。

2、分组成集团员工和普通人员啊

有点甜

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

加好友

发短信

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

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

以下是引用爱相随在2014-8-1 15:26:00的发言：
还有就是有些记录，比如资金申请，我8月份申请了，没有获得付款，9月份继续需要申报，希望通过点击某个按钮后，自动复制整行到表后的区域，然后修改时间，保存。对于重复的行希望能够自动复制，不需要再重新填写。我看有个自动复制的功能，但那是复制到其他表里去，我试着把代码改后希望能在复制到同一张里的后面，但没有成功。

[此贴子已经被作者于2014-8-1 15:28:49编辑过]

直接用菜单的克隆行，就是复制啊

http://www.foxtable.com/help/topics/1792.htm

有点甜

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

加好友

发短信

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

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

If User.Group <> "集团成员" Then

If e.Row("SQDW") <> User.Group Then '在编辑某行前,会自动判断负责此行的部门列是否和登录用户所属分组相同,如果不同,则取消编辑.

e.Cancel = True

End If

有点甜

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

加好友

发短信

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

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

If e.DataCol.Name = "SHYJ" Then
    Dim K As String = e.DataRow("SHYJ")
    Select Case K
        Case K = "同意"
            e.DataRow("SH1") = e.DataRow("SQJE")
        Case K = "修改"
            e.DataRow("SH1") = " "
        Case Else
            e.DataRow("SH1") = "0"
    End Select
End If

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

总数 15 1 2 下一页

主题：[求助]请老师帮助