加载窗体后,点击“删除当前分类”,出错
此主题相关图片如下:未命名.jpg
代码:
Dim fl As WinForm.ComboBox=e.Form.controls("sxcb")
Dim dlfl As DataRow =fl.SelectedItem
Dim dlms As String =dlfl("商品分类")
Dim txt As String = fl.value
If txt = Nothing Then
MessageBox.Show("请选择需要删除的【商品分类】")
Else
If MessageBox.Show("是否删除当前商品分类信息?","请确认!",MessageBoxButtons.YesNo)=DialogResult.Yes
DataTables("商品分类").Deletefor("商品分类='"& dlms &"'")
MessageBox.Show("【" & dlms & "】" & "商品分类已删除!")
e.Form.controls("sxcb").value=Nothing
End If
End If