'---将点击行的值复制到右边
Dim tbl As Table = e.Table
Dim tbl2 As Table = Tables(e.Table.Form.name & "_tbfill")
If tbl.cols.contains("第一列") = False Then
Dim r As Row = e.Row
Dim dr As DataRow = tbl2.DataTable.Find("_Identify = " & r("_Identify"))
If dr Is Nothing Then '不存在才加入
Dim r1 As Row = tbl2.AddNew()
For Each c As Col In tbl.Cols
r1(c.name) = r(c.name)
Next
msgbox(r("_Identify") & "-" & r1("_Identify"))
End If
End If
窗口中两个表都是sqltable,左侧表中查询到了数据,包含有_Identify列,双击左表行时将双击行的所有列复制到右侧表
但执行后用msgbox显示时右侧表的当前行的_identify都是0,即没有复制过去?为什么呢
谢谢!
加好友 
发短信
Post By：2018/6/2 19:12:00 [只看该作者]
