| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 编号输入求代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31193) |
| -- 作者：zmagood -- 发布时间：2013/4/11 14:54:00 -- 编号输入求代码 编号输入求代码：在编号列输入一个数后，自动在前面加上一个字母。 |
| -- 作者：Bin -- 发布时间：2013/4/11 14:59:00 -- 加上一个固定字母还是? |
| -- 作者：华软 -- 发布时间：2013/4/11 15:10:00 -- 帮助文件里有例程. |
| -- 作者：Bin -- 发布时间：2013/4/11 15:12:00 -- 如果是输入固定字母的话. 在DataCloChanged事件中加入下面代码 If e.DataCol.Name = "编号" Then If IsNumeric(e.NewValue) Then e.DataRow("编号")="abc"+e.NewValue End If End If |
| -- 作者：zmagood -- 发布时间：2013/4/11 15:13:00 -- If e.DataCol.Name = "缸号" Then \'如果是产品列的内容发生变化. If e.NewValue = "tv" Then \'如果新值是"tv". e.NewValue = "电视机" \'那么将"tv"替换为"电视机" ElseIf e.NewValue = "tel" Then \'如果新值是"tel" e.NewValue = "电话机" \'那么将"tel"替换为"电话机" End If End If 用这个列子，没用，输tv还是tv。我参照的是这个列子
|
| -- 作者：zmagood -- 发布时间：2013/4/11 15:16:00 -- Bin 你太强了。多向你学习。 |
| -- 作者：Bin -- 发布时间：2013/4/11 15:18:00 -- 以下是引用zmagood在2013-4-11 15:16:00的发言：
我新手一个- -不敢当.看我注册日期就知道了.
Bin 你太强了。多向你学习。 |
| -- 作者：XYT -- 发布时间：2013/4/11 15:33:00 -- 以下是引用zmagood在2013-4-11 15:13:00的发言：
If e.DataCol.Name = "缸号" Then \'如果是产品列的内容发生变化.
If e.NewValue = "tv" Then \'如果新值是"tv".
e.NewValue = "电视机" \'那么将"tv"替换为"电视机"
ElseIf e.NewValue = "tel" Then \'如果新值是"tel"
e.NewValue = "电话机" \'那么将"tel"替换为"电话机"
End If
End If
用这个列子，没用，输tv还是tv。我参照的是这个列子 没理由啊，这个正确，是不是你放错事件了 |
| -- 作者：zmagood -- 发布时间：2013/4/11 16:08:00 -- 呵呵，是放错事件了。应放DataColChanging事件 |
| -- 作者：zmagood -- 发布时间：2013/4/11 16:13:00 -- If e.DataCol.Name = "缸号" Then \'如果缸号列的内容发生变化 If IsNumeric(e.NewValue) Then \'如果新值是数字 e.DataRow("缸号")="A"+e.NewValue \'那么将"A"加在数字加前 ElseIf e.NewValue.Contains("a") Then \'判断是否包含"a" e.DataRow("缸号")=e.NewValue.Replace("a","A") \'如果有"a",换成大定"A" End If End If 当我删除这个值的时候，报错： 错误所在事件：表，清单，DataColChanging 详细错误信息： System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.NullReferenceException: 未设置对象变量或 With 块变量。 在 Microsoft.VisualBasic.CompilerServices.Symbols.Container..ctor
|