以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义函数问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57745)
--  作者：pcxjxjhkw
--  发布时间：2014/9/30 13:35:00
--  [求助]自定义函数问题

\'连接表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {系统设置}"
dt = cmd.ExecuteReader()

Dim ctm As String = Args(0)  \'窗体名
Dim kjm As String = Args(1)  \'控件名
Dim szm As String = Args(2)  \'设置名
Dim val As String = Args(3)  \'设置值
Dim xx As String = Args(4)  \'选项  设置值/默认值/列表值
Dim dr As DataRow= dt.Find("涉及窗体 = \'" & ctm & "\' and  控件 = \'" & kjm & "\' and 设置项 = \'" & szm & "\'")
If dr Is Nothing Then  \'如果未找到此行
    dr = dt.AddNew()   \'则增加一行
End If
dr("涉及窗体") = Args(0)
dr("控件") = Args(1)
dr("设置项") = Args(2)
dr(xx) = Args(3)

 

 

运行这个自定义函数，无能达到预期效果，求助大家

[此贴子已经被作者于2014-9-30 13:36:07编辑过]
--  作者：Bin
--  发布时间：2014/9/30 14:04:00
--  
cmd.ExecuteReader(True)
--  作者：有点甜
--  发布时间：2014/9/30 14:04:00
--  
 报错还是怎样？你预期效果是什么。
--  作者：pcxjxjhkw
--  发布时间：2014/9/30 14:13:00
--  
未保存设置值
--  作者：有点甜
--  发布时间：2014/9/30 14:16:00
--  
 看2楼。最后要保存。
--  作者：pcxjxjhkw
--  发布时间：2014/9/30 14:32:00
--  

dt.save() 后仍无未保存数据
--  作者：有点甜
--  发布时间：2014/9/30 14:39:00
--  
以下是引用pcxjxjhkw在2014-9-30 14:32:00的发言：

dt.save() 后仍无未保存数据

 

dr.Save

dt.Save

 

 保存后，只是保存到后台数据库，那你要重新刷新表格，才显示到你的项目中的