- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表事件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158922)
-- 发布时间：2020/12/7 15:09:00
-- [求助]表事件
老师好！
怎样根据案号中的代字，确定案件所在的法院？代字有近200个，循环排除，写起来太麻烦了。请老师帮忙写个代码。
谢谢！
1、案号
此主题相关图片如下：截屏图片 (2).jpg
2、法院代字
此主题相关图片如下：截屏图片 (1).jpg
3、下面是我写的代码，根据案号找法院：
If e.DataCol.Name = "原审案号" Then
If e.NewValue Like "*鲁0102*" Or e.NewValue Like "*历*" Then
e.DataRow("原审法院") = "济南市历下区人民法院"
Else If e.newValue Like "*鲁0103*" Then
e.DataRow("原审法院") = "济南市市中区人民法院"
Else If e.newValue Like "*鲁0104*" Or e.NewValue Like "*槐*" Then
e.DataRow("原审法院") = "济南市槐荫区人民法院"
Else If e.newValue Like "*鲁0105*" Then
e.DataRow("原审法院") = "济南市天桥区人民法院"
Else If e.newValue Like "*鲁0112*" Then
e.DataRow("原审法院") = "济南市历城区人民法院"
Else If e.newValue Like "*鲁0113*" Then
e.DataRow("原审法院") = "济南市长清区人民法院"
Else If e.newValue Like "*鲁0124*" Then
e.DataRow("原审法院") = "山东省平阴县人民法院"
Else If e.newValue Like "*鲁0125*" Then
e.DataRow("原审法院") = "山东省济阳县人民法院"
Else If e.newValue Like "*鲁0126*" Then
e.DataRow("原审法院") = "山东省商河县人民法院"
Else If e.newValue Like "*鲁0181*" Then
e.DataRow("原审法院") = "济南市章丘区人民法院"
Else If e.newValue Like "*鲁0191*" Then
e.DataRow("原审法院") = "济南高新技术产业开发区人民法院"
Else If e.newValue Like "*鲁0116*" Then
e.DataRow("原审法院") = "济南市莱芜区人民法院"
Else If e.newValue Like "*鲁0117*" Then
e.DataRow("原审法院") = "济南市钢城区人民法院"
End If
End If
-- 发布时间：2020/12/7 15:39:00
--
新建一个字典表，保存代字和名称的对应关系，表结构和内容参考上面的第二张图。然后通过查表获取数据
-- 发布时间：2020/12/7 15:53:00
--
谢谢蓝老师！
怎样把案号中的代字取出来，比如图一中的“鲁01”，否则没法对应去找？
-- 发布时间：2020/12/7 16:06:00
--
http://www.foxtable.com/webhelp/topics/1338.htm