以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  改成按钮式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46695)

--  作者：qianqian1530 --  发布时间：2014/2/27 10:27:00 --  改成按钮式 If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then      Dim dr As DataRow = DataTables("表B").AddNew      For Each dc As DataCol In DataTables("表B").DataCols          dr(dc.Name) = e.DataRow(dc.Name)      Next End If 这句怎么改成按钮啊？

--  作者：Bin --  发布时间：2014/2/27 10:37:00 --   dim r as row = tables("XX").current If r("逻辑列名") Then      Dim dr As DataRow = DataTables("表B").AddNew      For Each dc As DataCol In DataTables("表B").DataCols          dr(dc.Name) = r(dc.Name)      Next End If

--  作者：qianqian1530 --  发布时间：2014/2/27 10:55:00 --  回复：（Bin）dim r as row = tables("XX").currentIf... 出现错误， 说， 从 字符型转换到 Boolean 逻辑性，  转换无效...

--  作者：Bin --  发布时间：2014/2/27 10:56:00 --   说明 r("逻辑列名") 不是逻辑列 或者循环过程中使用了字符串列为逻辑赋值的情况.自己检查一下即可.