| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 窗体中有一个采用SQLcommand方式定义的sqltable，怎么修改和保存数据呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146293) |
| -- 作者：李孝春 -- 发布时间：2020/2/20 21:04:00 -- 窗体中有一个采用SQLcommand方式定义的sqltable，怎么修改和保存数据呢？ 窗体中有一个采用SQLcommand方式定义的sqltable，怎么修改和保存数据呢？ 代码如下： 窗体中的表系代码自动赋值的表，代码如下： Dim tb1 As WinForm.Table = e.Form.Controls("Table1") Dim c1 As WinForm.ComboBox = e.Form.Controls("选择表") Dim cmd1 As New SQLCommand Dim dt1 As DataTable cmd1.C cmd1.CommandText = "SE LECT * From {" & c1.Value & "} " dt1 = cmd1.ExecuteReader() tb1.Table.DataSource =dt1 Dim tab3 As WinForm.TabControl = e.Form.Controls("卡片管理") tab3.SelectedPage.Text= "【" & c1.value & "】一览表" _tablename=c1.Value.Trim() 获取修改权限代码如下： Dim t As WinForm.TextBox = forms("学校数据管理").Controls("TextBox1") Dim tb As WinForm.Table = forms("学校数据管理").Controls("Table1") If t.value="888888" Then tb.Table.AllowEdit=True Else tb.Table.AllowEdit=False End If 保存修改数据代码如下：（目前数据没有保存，刷新或者启项目后没有修改过的数据，求解！） 代码一： Dim c1 As WinForm.ComboBox = Forms("学校数据管理").Controls("选择表") \'Tables(c1.Value).Current.Save() Output.Show("Tables(\'" & c1.Value & "\').Current.Save()") 代码二： Tables("学校数据管理_Table1").Current.Save() DataTables("学校数据管理_Table1").Save() 这两个写法都没有能够成功把修改的数据写入后台。 [此贴子已经被作者于2020/2/21 9:17:39编辑过]
|
| -- 作者：blsu33 -- 发布时间：2020/2/20 23:43:00 -- Dim code As String code &="Tables(""" & c1.Value & """).Current.Save()" Functions.remove("test") Functions.Add("test",Code) Functions.Complie() MessageBox.Show(code)
|
| -- 作者：李孝春 -- 发布时间：2020/2/21 9:15:00 -- 回复：（blsu33）Dim code As Stringcode &="Tabl... 解决了显示问题 但是 怎么还是不能保存数据呢？ |
| -- 作者：有点蓝 -- 发布时间：2020/2/21 9:19:00 -- 就是这样呀：Tables(c1.Value).Current.Save()，如果要保存整个表：Tables(c1.Value).Save() |
| -- 作者：李孝春 -- 发布时间：2020/2/21 9:28:00 -- 回复：（有点蓝）就是这样呀：Tables(c1.Value).Curre... 但是就是没有保存成功，重启项目后又还原了 |
| -- 作者：有点蓝 -- 发布时间：2020/2/21 9:29:00 -- dt1 = cmd1.ExecuteReader(true) |
| -- 作者：李孝春 -- 发布时间：2020/2/21 9:46:00 -- 回复：（有点蓝）dt1 = cmd1.ExecuteReader(true)http... OK 谢谢 |
| -- 作者：liufucan -- 发布时间：2020/2/21 10:21:00 -- 窗口表用fill多好 |