窗体中有一个采用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编辑过]
加好友 
发短信
Post By：2020/2/20 21:04:00 [显示全部帖子]
