试用代码:Dim nmc() As String = {"身份证号","姓名","性别","年龄","标识","床号","住院号","报销起日"} 'A表数据来源列Dim nmd() As String = {"身份证号","姓名","性别","年龄","标识","床号","住院号","报销起日"} 'A表数据来源列
Dim dra As Row = Tables("报销名单").Current
Dim drc As Row = Tables("病案首页").AddNew
For i As Integer = 0 To nmc.Length - 1
drc(nmd(i)) = dra(nmc(i))
Next
Dim nma() As String = {"出生日期","籍贯","县","乡镇","村","婚姻","职业","民族","监姓名","监电话","监工作单位","监乡镇","监县","监村"} 'A表数据来源列
Dim nmb() As String = {"出生日期","籍贯","县","乡镇","村","婚姻","职业","民族","监姓名","监电话","监工作单位","监乡镇","监县","监村"} 'A表数据来源列
Dim drb As Row = DataTables("基本资料").SQLFIND("身份证号 = '" & dr("身份证号") & "'")
Dim dr As Row = Tables("病案首页").Current
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = drb(nma(i))
Next
Forms("病案首页").Open()
出现提示:
此主题相关图片如下:月亮.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-7/201473019234633499.png)