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
是什么原因?