Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口中二张表联动的问题


  共有2848人关注过本帖树形打印复制链接

主题:[求助]窗口中二张表联动的问题

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/26 23:11:00 [显示全部帖子]

先看看:http://www.foxtable.com/webhelp/topics/1522.htm

Dim dr As DataRow = e.DataRow 
Select
 Case e.DataCol.Name 
    
Case "
选中标记" 
       dim dr as datarow = 
e.Form.Controls("Table_表2").table.datatable.find("关联列=‘" & e.DataRow("关联列") & "’")
if dr isnot nothing then
dr("选中标记") = e.DataRow("选中标记")
end if
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/27 8:32:00 [显示全部帖子]

还要保证加载的行数是一致的

If e.DataCol.Name = "选中标记" OrElse e.DataCol.Name = "数量" OrElse e.DataCol.Name = "时间" Then
    Dim bt As WinForm.Button = e.Form.Controls("Button_内转生成")
    If bt.Enabled = True
dim idx as integer = e.Form.Controls("Table_内转出库").table.findrow(e.DataRow)
        Dim tb As WinForm.Table = e.Form.Controls("Table_内转入库")
        Dim t As Table = tb.Table
        t.Rows(idx)(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/27 10:30:00 [显示全部帖子]


 回到顶部