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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求代码修改

共有2537人关注过本帖树形打印复制链接主题：求代码修改

fytea

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

加好友

发短信

等级：三尾狐帖子：787 积分：6175 威望：0 精华：0 注册：2015/7/25 19:14:00

求代码修改

Post By：2015/10/7 3:27:00 [只看该作者]

这段代码，问题在哪里，每次都得“列重置”才能显示案卷级档号和文件级档号，且要点击当前单元格后重置

Select Case e.DataCol.name
    Case "案卷号"
        If e.newvalue > "" Then
            e.DataRow("案卷号")=format(Val(e.newValue),"0000")
        End If
Case "案卷级档号"
If e.newvalue Is Nothing Then
e.DataRow("案卷级档号") = e.DataRow("全宗号")&"-"& e.datarow("案卷目录号")&"-"& e.DataRow("案卷号")
End If
Case "文件级档号"
If e.NewValue Is Nothing Then
e.DataRow("文件级档号") = e.DataRow("全宗号")&"-"& e.datarow("案卷目录号")&"-"& e.DataRow("案卷号") &"-"& e.DataRow("页号")
End If

End Select