此主题相关图片如下:01.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-1/20201211494647659.jpg)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:02.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-1/20201211495670841.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
Next
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