主题：在窗口中添加一个按钮，如何将表A中的数据写表B中

dim r as row = tables("表b").Current

Dim fr As DataRow = DataTables("表A").SQLFind("身份证号码 = '" & r("身份证号码") & “‘”)

if fr isnot nothing then r("电话号码") = fr("电话号码")