以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  table控件,使用fill 动态指定表后, 如何插入,删除列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170481)

--  作者:qq252476275
--  发布时间:2021/7/28 8:24:00
--  table控件,使用fill 动态指定表后, 如何插入,删除列
table控件,使用fill("sel ect * from sqlTable where id = 0", \'dxDataSource\', true) 动态指定表后, 如何插入,删除列
--  作者:有点蓝
--  发布时间:2021/7/28 8:35:00
--  
如果要增加、删除临时列参考:http://www.foxtable.com/webhelp/topics/1428.htm


--  作者:qq252476275
--  发布时间:2021/7/28 8:52:00
--  
意思是, 需要增加列,必须使用dataTable, 动态变更数据库中的表结构吗?



--  作者:有点蓝
--  发布时间:2021/7/28 9:02:00
--  
2楼方法增加的是临时列,仅限在foxtable里使用,临时列数据不能保存,不会影响后台数据库
--  作者:qq252476275
--  发布时间:2021/7/28 15:06:00
--  
Tables("Test_table1").Fill("Sel ect  * from PDMoutfittingTray", "PDMftp" , True)

请教下, tables如何访问dataTables ?

--  作者:有点蓝
--  发布时间:2021/7/28 15:07:00
--  
调用Fill之后就会多出一个dataTables ,直接使用
DataTables("Test_table1").xxx
--  作者:qq252476275
--  发布时间:2021/7/28 15:13:00
--  
Dim tb As WinForm.Table = e.Form.Controls("Table1")

Tables("Test_table1").Fill("Se lect  * from PDMoutfittingTray", "PDMftp" , True)

If DataTables.Contains("Test_table1") Then
    Dim dt As DataTable = DataTables("Test_table1")
    dt.DataCols.Add("文件路径", Gettype(String))
End If

增加1列成功了!

谢谢老师耐心解答!

--  作者:qq252476275
--  发布时间:2021/7/28 17:42:00
--  
再请教下, 这个table,如何保存数据到数据库, 有单独的函数?

还是需要全表遍历,逐行写入数据库?

使用Insert into xxtable (F,G,K ) values (?,?,? )

--  作者:有点蓝
--  发布时间:2021/7/28 17:44:00
--  
fill使用参数false,可以直接保存

Tables("Test_table1").Fill("Se lect  * from PDMoutfittingTray", "PDMftp" , false)

保存代码:
Tables("Test_table1").save

--  作者:qq252476275
--  发布时间:2021/7/28 17:53:00
--  
使用了false值, 表格写不了
Tables("Test_table1").Fill("Se lect  * from PDMoutfittingTray where [_identify] is null", "PDMftp" , false)

错误:
      对于不返回任何键列信息的 SelectCommand,不支持 UpdateCommand 的动态 SQL 生成。