不知道为什么会出现错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

确定Click事件

Dim Te() As String ={"类别","辅料名称","单位"}

For i As Integer = 0 To te.Length-1

If e.Form.Controls(te(i)).text = "" Then

MessageBox.Show( ""& te(i) &" 是空值,请输入 "& te(i) &"!","提醒")

Return

End If

Dim r As Row = Tables("添加辅料_Table1").Current

If r.Locked = True Then

r .Locked = False

End If

Dim cmd As New SQLCommand

Dim ds As DataTable

Dim cmb As WinForm.ComboBox

cmd.C

cmd.CommandText = "SELEC1T * From {辅料信息表}"

ds = cmd.ExecuteReader(True)

r("计量单位") = e.Form.Controls("单位").Value

r("辅料质地") = e.Form.Controls("辅料质地").Value

r("规格") = e.Form.Controls("规格").Value

r("辅料名称") = e.Form.Controls("辅料名称").Value

'r("辅料类别") = e.Form.Controls("类别").Value

'r("辅料编号") = e.Form.Controls("编号").text

With Tables("添加辅料_Table1").Current '引用当前行

If .IsNull("辅料名称") = False Then '如果已经输入结账日期

.Locked = True '那么锁定此行

If DataTables("添加辅料_Table1").HasChanges Then

r.Save

ds.Save

End If

Else

.Locked = False '那么锁定此行

ds.Save

End If

End With

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

还是出现这个问题哦

几个方面当辅料查询时，点击辅料成分选择要选的项目后，如果出现2条以上的内容，然后修改按确定，不出现错误，但是会保存，如果出现内容只有一条，那就会出现如上错误

不是，上面的代码是“确定”Click事件

currentchanged的事件代码如下

Dim sj1 As WinForm.TextBox = e.Form.Controls("单位")

Dim sj2 As WinForm.TextBox = e.Form.Controls("辅料质地")

Dim sj3 As WinForm.TextBox = e.Form.Controls("规格")

Dim sj4 As WinForm.TextBox = e.Form.Controls("辅料名称")

Dim sj5 As WinForm.ComboBox = e.Form.Controls("类别")

Dim sj6 As WinForm.Label = e.Form.Controls("编号")

Dim r As Row = Tables("添加辅料_Table1").Current

sj1.Value = r("计量单位")

sj2.Value = r("辅料质地")

sj3.Value = r("规格")

sj4.Value = r("辅料名称")

sj5.Value = r("辅料类别")

sj6.text = r("辅料编号")

窗口中的表是SQLTABLE

[此贴子已经被作者于2020/1/2 14:37:51编辑过]

主题：不知道为什么会出现错误