Foxtable(狐表)用户栏目专家坐堂 → [求助]帮我看一下代码,问题出在哪里


  共有4244人关注过本帖树形打印复制链接

主题:[求助]帮我看一下代码,问题出在哪里

帅哥哟,离线,有人找我吗?
Bin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/4 8:38:00 [显示全部帖子]


If e.DataCol.Name = "同时开通_手机银行"
  If e.DataRow("同时开通_手机银行") = True Then
    Dim dr As DataRow = DataTables("手机银行").AddNew
    For Each dc As DataCol In DataTables("手机银行").DataCols
            dr(dc.Name) = e.DataRow(dc.Name)
    Next
else
  dim dr as DataRow=DataTables("手机银行").Find("手机号码='" & e.datarow("手机号码") & "'")    '这里假设唯一标识列为手机号码
  if dr isnot nothing then
     dr.delete
  end if
end if
End If
[此贴子已经被作者于2013-11-4 8:38:09编辑过]

 回到顶部