以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自动追文本 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109288) |
-- 作者:沪上游客 -- 发布时间:2017/11/8 17:05:00 -- [求助]自动追文本 老师你好! 在设定了主表中增加一条记录时,会自动录入合同编号(前部分)。如下图 谢谢老师请解决一下!
[此贴子已经被作者于2017/11/8 17:05:25编辑过]
|
-- 作者:有点甜 -- 发布时间:2017/11/8 17:43:00 -- DataChanged事件
If e.DataCol.Name = "所属年份" AndAlso e.DataRow.RowState = DataRowState.Added Then |
-- 作者:沪上游客 -- 发布时间:2017/11/9 9:56:00 -- 谢谢老师!还是不行。出现以下提示: 请帮忙看一下 我现在的代码: If User.Group Like "*分公司" Then If e.DataCol.Name = "所属年份" AndAlso e.DataRow.RowState = DataRowState.Added Then If e.newvalue = Nothing Then e.DataRow("合同编号") = "aabbcceeffggh" ElseIf e.newvalue.length = 4 Then e.DataRow("合同编号") = "aabbcceeffggh" & e.newvalue.substring(0, 2) End If End If End If |
-- 作者:有点甜 -- 发布时间:2017/11/9 9:58:00 -- If e.DataCol.Name = "所属年份" AndAlso e.DataRow.RowState = DataRowState.Added Then If e.newvalue = Nothing Then e.DataRow("合同编号") = "aabbcceeffgg-" ElseIf cstr(e.newvalue).length = 4 Then e.DataRow("合同编号") = "aabbcceeffgg-" & cstr(e.newvalue).substring(0, 2) End If End If [此贴子已经被作者于2017/11/9 9:57:49编辑过]
|
-- 作者:沪上游客 -- 发布时间:2017/11/9 9:58:00 -- 另外我已经把第十三位的“-”加上了 |
-- 作者:有点甜 -- 发布时间:2017/11/9 9:59:00 -- 认认真真看懂4楼代码。 |
-- 作者:有点甜 -- 发布时间:2017/11/9 10:00:00 -- If User.Group Like "*分公司" Then
If e.DataCol.Name = "所属年份" AndAlso e.DataRow.RowState = DataRowState.Added Then
If e.newvalue = Nothing Then
e.DataRow("合同编号") = "aabbcceeffggh"
ElseIf cstr(e.newvalue).length = 4 Then
e.DataRow("合同编号") = "aabbcceeffggh" & cstr(e.newvalue).substring(0, 2)
End If
End If
End If |
-- 作者:沪上游客 -- 发布时间:2017/11/9 10:54:00 -- 谢谢老师,已解决! |