[求助]求助这个代码应该怎么修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：搜狗截图_2013-01-23_11-02-28.png

我想在“拼音/简码”列里面实现如果“名称”列有内容则显示名称列的拼音，如果“委托代理人”列有内容则显示委托代理人的拼音，如果“名称”列和"委托代理人"列都有内容，则显示委托代理人的拼音。

分开来写我知道是这样写，

Select Case e.DataCol.name

Case "名称"

If e.DataRow.IsNull("名称") Then

e.DataRow("拼音") = Nothing

Else

e.DataRow("拼音") = GetPy(e.NewValue)

End If

Case "委托代理人"

If e.DataRow.IsNull("委托代理人") Then

e.DataRow("拼音") = Nothing

Else

e.DataRow("拼音") = GetPy(e.NewValue)

End If

end if

但是合起来一起写应该怎么写啊？？望指教~~~

谢谢林大，但是这样写当名称列输入时有拼音，当名称列委托代理人列都输入时，也符合条件。但是当名称列为空，委托代理人列有字符时，则显示不出来。望指教~~~

谢谢林大，但是还是发现了个小问题当名称列与委托代理人列都输入字符后，在delete删除任意一列的字符，则弹出错误窗口，显示 “调用的目标发生了异常”。请问这是什么原因。

谢谢程总，已经尝试了，且对于初学者的我，可以一眼就看出代码意思。表示感谢！！林大的代码还是有些小看不懂。图片点击可在新窗口打开查看

但是您的代码和林大的代码都出现这样的问题。

就是当名称列与委托代理人列都输入字符后，再任意delete删除两列当中的任意一列字符，都显示 “调用的目标发生了异常”。

请问这是什么原因造成的？？

最终依据程总的代码意思，经自己修改后，不再出现任何错误提示，望大家指点、简化。代码如下！！

Select Case e.DataCol.name

Case "名称", "委托代理人"

If e.DataRow.IsNull("委托代理人") =False And e.DataRow.IsNull("名称") =False Then

e.DataRow("拼音") = GetPy(e.DataRow("委托代理人"))

ElseIf e.DataRow.IsNull("委托代理人") And e.DataRow.IsNull("名称") Then

e.DataRow("拼音") = Nothing

ElseIf e.DataRow.IsNull("委托代理人") =True And e.DataRow.IsNull("名称") =False Then

e.DataRow("拼音") = GetPy(e.DataRow("名称"))

ElseIf e.DataRow.IsNull("委托代理人") =False And e.DataRow.IsNull("名称") = True Then

e.DataRow("拼音") = GetPy(e.DataRow("委托代理人"))

Else e.DataRow("拼音") = GetPy(e.NewValue)

End If

End Select

狐爸爸果然厉害，代码简练。

我依据自己写的代码这个代码，没有任何问题。

Case "委托方代理人", "委托方名称"

If e.DataRow.IsNull("委托方代理人") =False And e.DataRow.IsNull("委托方名称") =False Then

e.DataRow("拼音") = GetPy(e.DataRow("委托方代理人"))

ElseIf e.DataRow.IsNull("委托方代理人") And e.DataRow.IsNull("委托方名称") Then

e.DataRow("拼音") = Nothing

ElseIf e.DataRow.IsNull("委托方代理人") =True And e.DataRow.IsNull("委托方名称") =False Then

e.DataRow("拼音") = GetPy(e.DataRow("委托方名称"))

ElseIf e.DataRow.IsNull("委托方代理人") =False And e.DataRow.IsNull("委托方名称") = True Then

e.DataRow("拼音") = GetPy(e.DataRow("委托方代理人"))

Else e.DataRow("拼音") = GetPy(e.NewValue)

End If

但是我举一反三，又写了这个代码，但是出问题了，按delete删除键总是提示“调用的目标发生了异常”。这是为什么两个代码都是一个模型出来的，一个没有问题，一个老是提示错误。请教这是什么原因造成的？？

Case "联系电话", "办公电话"

Dim phone As String = e.NewValue.SubString(0,7)

Dim fdr1 As DataRow = DataTables("手机号码归属地").Find("手机编码 = '" & phone & "'")

Dim tele1 As String = e.NewValue.SubString(0,4)

Dim tele2 As String = e.newvalue.Substring(0,3)

Dim fdr2 As DataRow = DataTables("手机号码归属地").Find("区号 = '" & tele1 & "' Or 区号 = '" & tele2 & "'")

If e.DataRow.IsNull("联系电话") =False And e.DataRow.IsNull("办公电话") =False Then

e.DataRow("号码归属地") = fdr1("地区") & " " & fdr1("卡类别")

ElseIf e.DataRow.IsNull("联系电话") And e.DataRow.IsNull("办公电话") Then

e.DataRow("号码归属地") = Nothing

ElseIf e.DataRow.IsNull("联系电话") =True And e.DataRow.IsNull("办公电话") =False Then

e.DataRow("号码归属地") = fdr2("地区") & " " & fdr2("卡类别")

ElseIf e.DataRow.IsNull("联系电话") =False And e.DataRow.IsNull("办公电话") = True Then

e.DataRow("号码归属地") = fdr1("地区") & " " & fdr1("卡类别")

Else e.DataRow("号码归属地") = fdr1(e.NewValue) And fdr2(e.NewValue)

End If

[此贴子已经被作者于2013-1-24 21:40:51编辑过]

那请问我下面这段代码应该怎么修改呢？

已我现在的水平真不知道应该加那个判断。不是有这么一个判断 ElseIf e.DataRow.IsNull("联系电话") And e.DataRow.IsNull("办公电话") Then e.DataRow("号码归属地") = Nothing 这样还不行吗？

我也知道这代码累赘的很，但是按照您的和狐爸爸的代码套模板后还是显示“调用的目标发生了异常”。

代码真难学啊~~我应该怎么简化代码并且不出错呢！！！

先谢谢林老师热情的答复，不嫌弃我麻烦。谢谢！！

再请问林老师这句判定代码起一个什么作用？我看不懂这句代码在整个代码中其什么作用和表示什么意思。

最后想说一下加上这句代码后还是没有解决“按delete删除办公电话列和联系电话列的字符时弹出调用的目标发生了异常” 这个问题。

此主题相关图片如下：搜狗截图_2013-01-24_21-45-46.png

真不好意再次麻烦各位大虾。我是不是在这个简单的问题上太较真了~~ 图片点击可在新窗口打开查看

自己问的都有些不好意思了。

以下是引用lin_hailun在2013-1-25 9:33:00的发言：
上传一个简单的例子吧，说起来麻烦。

嗯，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.part01.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.part02.rar

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.part03.rar

主题：[求助]求助这个代码应该怎么修改