以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口内控件绑定到不同表同一列名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98323)
--  作者：cd_tdh
--  发布时间：2017/3/28 10:10:00
--  窗口内控件绑定到不同表同一列名
有个状态窗口，有多个表同时使用，当表A打开时，状态保存到表A“第一列"，表B打开时，状态保存到表B“第一列",表C打开时，状态保存到表C“第一列"...........，怎么实现呢？
--  作者：cd_tdh
--  发布时间：2017/3/28 10:38:00
--  
以下是引用cd_tdh在2017/3/28 10:10:00的发言：
有个状态窗口，有多个表同时使用，当表A打开时，状态保存到表A“第一列"，表B打开时，状态保存到表B“第一列",表C打开时，状态保存到表C“第一列"...........，怎么实现呢？

已用MessageBox加判断的方法处理，请老师些看哈有没逻辑问题：

Dim a As Row = Tables("打保证金表").Current
Dim Result As DialogResult
 If a("保证金状态") = Nothing Then
MessageBox.Show("对方支付申请还未完成!", "提示")
Else
 Result = MessageBox.Show("你确认制单完成吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 If Result = DialogResult.Yes  Then
    a("保证金状态") = "已制单完成"
Else
End If
End If
--  作者：有点色
--  发布时间：2017/3/28 11:06:00
--  

 2楼代码没问题。当前表，你可以用 CurrentTable

 

 你可以在打开窗口之前，设置一下是哪个表打开的，如代码

 

vars("表") = "表A"

Forms("窗口1").Show