- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求代码修改 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75369)
-- 发布时间：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
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:字符连接.table |
-- 发布时间：2015/10/7 4:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:字符连接.table |
-- 发布时间：2015/10/7 7:59:00
--
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
Case "全宗号","案卷目录号","案卷号"
dr("案卷级档号") = dr("全宗号") & "-" & dr("案卷目录号") &"-" & format(Val(dr("案卷号")),"0000")
End Select
Select Case e.DataCol.name
Case "全宗号","案卷目录号","案卷号","页号"
dr("文件级档号") = dr("全宗号") & "-" & dr("案卷目录号") & "-" & format(Val(dr("案卷号")),"0000") & "-" & dr("页号")
End Select
自己再完善一下
-- 发布时间：2015/10/9 13:48:00
--
谢谢，大神