- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 代码错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148529)
-- 发布时间：2020/4/9 15:47:00
-- 代码错误
下面有下划线的代码提示有错误，请问错在哪里? 请指教，谢谢！
Dim dt As DataTable = DataTables("债权人基本情况表")
Dim dr As DataRow = dt.find("债权人= \'" & e.DataRow("债权人") & "\'")
If dr IsNot Nothing Then
For i As Integer = 1 To DataTables("收款明细表").DataRows.Count
e.DataRow("银行类别")= dr("银行类别")
e.DataRow("身份证号码")= dr("身份证号码")
e.DataRow("开户银行")= dr("开户银行")
e.DataRow("银行账号")= dr("银行账号")
Next
End If
-- 发布时间：2020/4/9 15:48:00
--
提示什么错误？
msgbox("债权人= \'" & e.DataRow("债权人") & "\'")
-- 发布时间：2020/4/9 15:49:00
--
如果不是在表事件，不会有e.DataRow这种东西吧。代码在什么地方？
-- 发布时间：2020/4/9 19:24:00
--
放在datacolchanged 事件中，现在没错误的提示，就是没有反应，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:融资管理系统.rar |
-- 发布时间：2020/4/9 20:36:00
--
先看看：http://www.foxtable.com/webhelp/topics/1522.htm
If e.DataCol.Name = "债权人" Then
Dim dt As DataTable = DataTables("债权人基本情况表")
Dim dr As DataRow = dt.find("债权人= \'" & e.DataRow("债权人") & "\'")
If dr IsNot Nothing Then
e.DataRow("银行类别")= dr("银行类别")
e.DataRow("身份证号码")= dr("身份证号码")
e.DataRow("开户银行")= dr("开户银行")
e.DataRow("银行账号")= dr("银行账号")
Else
e.DataRow("银行类别")= Nothing
e.DataRow("身份证号码")= Nothing
e.DataRow("开户银行")= Nothing
e.DataRow("银行账号")= Nothing
End If
End If
选中"债权人"列，然后重置列即可