[求助]帮我看一下代码，问题出在哪里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3364人关注过本帖树形打印复制链接主题：[求助]帮我看一下代码，问题出在哪里

dycjj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：171 积分：1292 威望：0 精华：0 注册：2011/8/17 21:12:00

[求助]帮我看一下代码，问题出在哪里 发帖心情

Post By：2013/11/3 23:12:00 [只看该作者]

If e.DataCol.Name = "同时开通_手机银行"

Dim dr As DataRow = DataTables("手机银行").AddNew

For Each dc As DataCol In DataTables("手机银行").DataCols

If e.DataRow("同时开通_手机银行") = True Then

dr(dc.Name) = e.DataRow(dc.Name)

Else

dr(dc.Name) = Nothing

End If

提示：“同时开通_手机银行” 这是一个逻辑列，

当我勾选这个逻辑列时，数据能正常复制过去，但是当我取消勾选时，复制到另一个表的这一行数据依然还存在

我的意思是，当我取消勾选时，复制过去的这一条数据也消失。问题出在哪里呢，请大侠们帮我看一下。

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：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)

else

dim dr as DataRow=DataTables("手机银行").Find("手机号码='" & e.datarow("手机号码") & "'") '这里假设唯一标识列为手机号码

if dr isnot nothing then

dr.delete

end if

End If

[此贴子已经被作者于2013-11-4 8:38:09编辑过]

dycjj

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：171 积分：1292 威望：0 精华：0 注册：2011/8/17 21:12:00

Post By：2013/11/5 22:33:00 [只看该作者]

Bin总，多谢的你热心帮助，不过我这里还是遇到了问题，因为我这是一个计价产品的登记，我只是登记一条记录而已，并不需要输入手机号吗，所以在两个表之间，几乎没有相同的标失，本来我想用你的代码通过客户姓名来作为相同的标失，可是我一想，不行啊，万一有同名的怎么办，且不是会出现有些记录删除不了，所以，还得用其它的法子

下一主题 >> << 上一主题

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