以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文本框发送数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196559)
--  作者：fangshen
--  发布时间：2025/5/13 13:37:00
--  文本框发送数据

目前状态：
在窗口A中有一个按钮，当打开窗口A时，按钮通过串口发送A1，代码如下，已经实现。Ports("COM4").Write("A1")
希望实现：
在窗口A中增加一个TextBox1,TextBox1绑定到表B的第一列。希望打开窗口A时，TextBox1通过串口，把TextBox1的内容发送出去。
比如：TextBox1=第一列，第一列是"B1"时，当打开窗口A时，TextBox1把B1通过串口发送出去
请问代码如何写，谢谢
--  作者：有点蓝
--  发布时间：2025/5/13 13:41:00
--  
dim r as row = tables("表B").current
if r isnot nothing andalso r.isnull("第一列")=false then
Ports("COM4").Write(r("第一列"))
end if