If e.DataCol.Name = "复制到C表" AndAlso e.DataRow("复制到C表") = True Then
Dim nma() As String = {"身份证号","姓名","标识","报销起日","报销止日","入院时间","出院时间","年龄","性别","床号","住院号","楼名","楼层","房号","序号","经管医师","经管护理","经管护工","经管保安","参保方式","诊治方式","结款状态","救助方式","科别"} 'A表数据来源列
Dim nmb() As String = {"身份证号","姓名","标识","报销起日","报销止日","入院时间","出院时间","年龄","性别","床号","住院号","楼名","楼层","房号","序号","经管医师","经管护理","经管护工","经管保安","参保方式","诊治方式","结款状态","救助方式","科别"} 'B表数据接收列
Dim dr As Row = Tables("表C").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
forms("表C").show
End If
加好友 
发短信
Post By：2015/8/14 11:21:00 [显示全部帖子]
