以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 保存数据问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146893) |
|
-- 作者:裴保民 -- 发布时间:2020/3/5 11:30:00 -- 保存数据问题 前一段时间保存还正常呢?为什么今天保存不了了?出现一下错误 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 -- 修改代码后保存数据时出错 保存数据成功了,还是弹出错误框
[此贴子已经被作者于2020/3/5 14:26:28编辑过]
|
|
-- 作者:有点蓝 -- 发布时间:2020/3/5 13:58:00 -- 生成idxs 的各个ID一样要加单引号 |
|
-- 作者:裴保民 -- 发布时间:2020/3/5 14:28:00 -- 保存成功了,但是还是弹出错误框 在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 -- 都说了加上单引号啊:
[此贴子已经被作者于2020/3/5 15:07:41编辑过]
|