- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 条件赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17729)
-- 发布时间：2012/3/22 15:24:00
-- 条件赋值
比如，窗口中有编号和类型两个文本框，我想当编号为4个数字时，类型填充为社会团体，当编号为3个数字时，类型填充为基金会，请教专家代码怎样编写
-- 发布时间：2012/3/22 15:33:00
--
If e.DataCol.Name = "编号" Then
If e.DataCol("编号").IsString And String.Length=4 Then
e.DataRow.Name("类型") = "社会团体"
End If
End If
上面这个代码请高人指教
-- 发布时间：2012/3/22 15:37:00
--
If e.DataCol.Name = "编号" Then
Dim s As String = e.DataRow("编号")
if s.Length = 3 then
e.DataRow("类型") = “基金会”
ElseIf s.Length = 4 then
e.DataRow("类型") = "社会团体"
Else
e.DataRow("类型") = Nothing
End if
End If
-- 发布时间：2012/3/22 17:16:00
--
此主题相关图片如下：qq截图20120322171459.jpg
-- 发布时间：2012/3/22 17:19:00
--
If e.DataCol.Name = "编号" Then
Dim s As String = e.DataRow("编号")
s = s.TrimStart("0")
If s.Length Then
e.DataRow("类型") = "基金会"
ElseIf s.Length = 4 Then
e.DataRow("类型") = "社会团体"
Else
e.DataRow("类型") = Nothing
End If
End If