- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 保存数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146893)
-- 发布时间：2020/3/5 11:30:00
-- 保存数据问题
前一段时间保存还正常呢？为什么今天保存不了了？出现一下错误
此主题相关图片如下：截图18.jpg
Dim dt As DataTable = DataTables("收入分类")
Dim dic As New Dictionary(of Integer, Integer)
Dim prevLevel As Integer = 0
Dim idxs As String = "-1,"
For Each nd As WinForm.TreeNode In e.Form.Controls("srflTreeView").AllNodes
If nd.Level = 0 AndAlso dic.count > 0 Then
Dim temp = dic(0)
dic.Clear
dic.Add(0, temp)
End If
If dic.ContainsKey(nd.Level) = False Then
dic.Add(nd.Level, 1)
Else
dic(nd.Level) = dic(nd.Level) + 1
End If
For i As Integer = nd.level + 1 To prevLevel
dic(i) = 0
Next
prevLevel = nd.Level
Dim ndr As DataRow
If nd.DataRow IsNot Nothing Then
ndr = dt.Find("SRID = " & nd.DataRow("SRID"))
Else
ndr = dt.AddNew
End If
idxs &= ndr("SRID") & ","
Dim str As String = ""
For i As Integer = 0 To nd.Level
str &= format(dic(i), "000") & "."
Next
ndr("收入分类代码") = str.TrimEnd(".")
ndr("收入目录") = nd.Text
Next
dt.DeleteFor("SRID not in (" & idxs & ")")
dt.Save
-- 发布时间：2020/3/5 12:06:00
--
ndr = dt.Find("SRID = \'" & nd.DataRow("SRID") & "\'") 字符列使用单引号
-- 发布时间：2020/3/5 13:41:00
--
修改代码后保存数据时出错
此主题相关图片如下：截图20.jpg
保存数据成功了，还是弹出错误框
此主题相关图片如下：截图21.jpg
[此贴子已经被作者于2020/3/5 14:26:28编辑过]
-- 发布时间：2020/3/5 13:58:00
--
生成idxs 的各个ID一样要加单引号
-- 发布时间：2020/3/5 14:28:00
--
保存成功了，但是还是弹出错误框
此主题相关图片如下：截图21.jpg
在DataRowAdded事件中写了如下代码
Dim dt As DataTable = DataTables("收入分类")
Dim max As String
Dim idx As Integer
max =dt.Compute("Max(SRID)","SRID like \'SR%\'")
If max > "" Then \'如果存在最大编号
idx = CInt(max.SubString(2)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
For Each dr As DataRow In dt.Select("SRID is null")
Dim str As String ="SR" & Format(idx,"000000")
Dim fdr As DataRow = dt.find("SRID =\'" & str & "\' And [_Identify] <> " & e.DataRow("_Identify"))
If fdr Is Nothing
dr("SRID") = str
End If
idx += 1
Next
[此贴子已经被作者于2020/3/5 14:29:20编辑过]
-- 发布时间：2020/3/5 14:36:00
--
看不出什么问题。
-- 发布时间：2020/3/5 15:05:00
--
idxs &= ndr("SRID") & ","
蓝老师这句代码有问题吗？
-- 发布时间：2020/3/5 15:07:00
--
都说了加上单引号啊：
idxs &= "\'" & ndr("SRID") & "\'," |
[此贴子已经被作者于2020/3/5 15:07:41编辑过]