- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复制表的问题请教专家 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133289)
-- 发布时间：2019/4/11 12:05:00
-- 复制表的问题请教专家
此主题相关图片如下：qq图片20190411115759.png
如上图这个表达式应该怎么写？
-- 发布时间：2019/4/11 14:46:00
--
参考
http://www.foxtable.com/webhelp/scr/1647.htm
-- 发布时间：2019/4/15 12:09:00
--
最后是这样解决的：
If 
e.DataCol.Name = "是否拿下" AndAlso e.DataRow("是否拿下") = True Then
Dim nma() As String = {"报价单编号","客户","模号","加工内容","数量","单价","附图","备注","报价日期"} \'A表数据来源列
Dim nmb() As String = {"报价单编号","客户","模号","加工内容","数量","单价","附图","备注","报价日期"} \'B表数据接收列
Dim dr As DataRow = DataTables("已确认订单表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If
e.DataCol.Name = "是否拿下" AndAlso e.DataRow("是否拿下") = True ThenDim nma() As String = {"报价单编号","客户","模号","加工内容","数量","单价","附图","备注","报价日期"} \'A表数据来源列
Dim nmb() As String = {"报价单编号","客户","模号","加工内容","数量","单价","附图","备注","报价日期"} \'B表数据接收列
Dim dr As DataRow = DataTables("已确认订单表").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If