以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [推荐]输出代码录入表A  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176155)

--  作者:miaoqingqing
--  发布时间:2022/4/1 20:27:00
--  [推荐]输出代码录入表A
求助1  窗口控件TextBox1中除了第一行文字提取到表A代码列
求助2 窗口控件TextBox1中第一行文字提取到表A名称列



图片点击可在新窗口打开查看此主题相关图片如下:窗口控件textbox1中第一行文字提取到表a第一列.png
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:输出代码录入表a.zip


--  作者:有点蓝
--  发布时间:2022/4/2 8:40:00
--  
参考:http://www.foxtable.com/webhelp/topics/0760.htm


--  作者:miaoqingqing
--  发布时间:2022/4/2 9:30:00
--  回复:(有点蓝)参考:http://www.foxtable.com/webh...
蓝主,表A的类别列,自动录入第2级目录树节点名称
代码怎么写呢?

图片点击可在新窗口打开查看此主题相关图片如下:表a类别列自动录入第2级目录树节点名称.png
图片点击可在新窗口打开查看

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ssr() As String = txt.lines
Dim s As String = ssr(0)
Dim s2 As String = txt.Text.replace(s,"").trim


Dim nr As Row = Tables("表A").AddNew
nr("名称列") = s
nr("代码列") = s2
nr("类别列") = 第2级目录树节点名称(项目事件、表事件。。。)
[此贴子已经被作者于2022/4/2 9:30:29编辑过]

--  作者:有点蓝
--  发布时间:2022/4/2 9:53:00
--  

nr("类别列") = 
Forms("窗口1").Controls("TreeView1").SelectedNode.text