- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 老大,帮我看个SQL语句的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17975)
-- 发布时间：2012/3/29 22:38:00
-- 老大,帮我看个SQL语句的问题
Dim Val As String
If InputValue(Val, "保存设置", "请输入要保存设置的名字:") Then
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = Tr.Nodes.Add(Val,Val)
Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
Dim Str As String
For Each dr As DataRow In dt.DataRows
Str = Str & "|" & dr("公式")
Next
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Update {保存设置] Set [保存设置] = \'" & nd.Name & "\',[保存字符串] =\'" & Str & "\'"
cmd.ExecuteNonQuery
End If
保存字符串提示说,缺少:
此主题相关图片如下：pqjflodem()wj(wrbtep3m.jpg
是什么原因?
-- 发布时间：2012/3/29 23:42:00
--
这样试试
Str = Str & " " & dr("公式")
-- 发布时间：2012/3/29 23:43:00
--
先把dr("公式") 的值放一个上来大家看看：
-- 发布时间：2012/3/30 7:39:00
--
此主题相关图片如下：pqjflodem()wj(wrbtep3m.jpg
值就是这样的呀,不允许写入这种的吗?
-- 发布时间：2012/3/30 7:42:00
--
Dim r As Row = Tables("表C").AddNew
r("第一列") = Str 这样却是可以的.
-- 发布时间：2012/3/30 7:47:00
--
这样试试
Str = Str & " " & dr("公式")
老大,我用 , 空格都试过,不行!
-- 发布时间：2012/3/30 8:23:00
--
MessageBox.show("Update {保存设置] Set [保存设置] = \'" & nd.Name & "\',[保存字符串] =\'" & Str & "\'")
至少这个：{保存设置]
应该改为：{保存设置}
-- 发布时间：2012/3/30 8:44:00
--
Dim Val As String
If InputValue(Val, "保存设置", "请输入要保存设置的名字:") Then
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = Tr.Nodes.Add(Val,Val)
Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
Dim Str As String
For Each dr As DataRow In dt.DataRows
Str = Str & "|" & dr("公式")
Next
Str = （"*" & str).Replace("|And"," And ").Replace("*|","")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Update {保存设置} Set [保存设置] = \'" & nd.Name & "\',[保存字符串] =\'" & Str & "\'"
cmd.ExecuteNonQuery
End If
-- 发布时间：2012/3/30 9:18:00
--
一早,lxl老大帮我搞定了,意思跟程老大的差不多.
-- 发布时间：2012/3/30 11:22:00
--
呵呵，昨晚在群里面都写好了，没发出去，正好看到您在论坛发帖子了，后来考虑到您的控件里面的值需要看看，否则可能无法一次性解决到位！