保存数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

前一段时间保存还正常呢？为什么今天保存不了了？出现一下错误

此主题相关图片如下：截图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

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") & "."

ndr("收入分类代码") = str.TrimEnd(".")

ndr("收入目录") = nd.Text

dt.DeleteFor("SRID not in (" & idxs & ")")

dt.Save

ndr = dt.Find("SRID = '" & nd.DataRow("SRID") & "'") 字符列使用单引号

修改代码后保存数据时出错

此主题相关图片如下：截图20.jpg

保存数据成功了，还是弹出错误框

此主题相关图片如下：截图21.jpg

[此贴子已经被作者于2020/3/5 14:26:28编辑过]

生成idxs 的各个ID一样要加单引号

保存成功了，但是还是弹出错误框

此主题相关图片如下：截图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

[此贴子已经被作者于2020/3/5 14:29:20编辑过]

看不出什么问题。

勾选“显示详细信息”，看是哪个事件的问题？

idxs &= ndr("SRID") & ","

蓝老师这句代码有问题吗？

都说了加上单引号啊：

idxs &= "'" & ndr("SRID") & "',"

[此贴子已经被作者于2020/3/5 15:07:41编辑过]

主题：保存数据问题